home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1991-05-23 | 22.9 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 20 f4 20 3e 3c | 50 72 69 6e 74 4c 62 6c |... . ><|PrintLbl|
|00000010| 73 24 44 69 72 3e 2e 21 | 52 75 6e 49 6d 61 67 65 |s$Dir>.!|RunImage|
|00000020| 0d 00 14 05 f4 0d 00 1e | 10 f4 20 21 50 72 69 6e |........|.. !Prin|
|00000030| 74 4c 62 6c 73 0d 00 28 | 05 f4 0d 00 32 1a f4 20 |tLbls..(|....2.. |
|00000040| a9 20 53 74 65 76 65 6e | 20 48 61 73 6c 61 6d 20 |. Steven| Haslam |
|00000050| 31 39 39 31 0d 00 3c 05 | f4 0d 00 46 17 f4 20 49 |1991..<.|...F.. I|
|00000060| 6e 74 65 72 66 61 63 65 | 20 6d 6f 64 75 6c 65 3a |nterface| module:|
|00000070| 0d 00 50 05 f4 0d 00 5a | 1d f4 20 a9 20 53 69 6d |..P....Z|.. . Sim|
|00000080| 6f 6e 20 48 75 6e 74 69 | 6e 67 64 6f 6e 20 31 39 |on Hunti|ngdon 19|
|00000090| 39 30 0d 00 64 05 f4 0d | 00 6e 1a f4 20 53 6c 69 |90..d...|.n.. Sli|
|000000a0| 64 69 6e 67 20 68 65 61 | 70 20 6d 61 6e 61 67 65 |ding hea|p manage|
|000000b0| 72 0d 00 78 05 f4 0d 00 | 82 1a f4 20 a9 20 53 74 |r..x....|... . St|
|000000c0| 65 76 65 6e 20 48 61 73 | 6c 61 6d 20 31 39 39 30 |even Has|lam 1990|
|000000d0| 0d 00 8c 05 f4 0d 00 96 | 05 3a 0d 00 a0 19 de 20 |........|.:..... |
|000000e0| 54 41 53 4b 20 34 3a 24 | 54 41 53 4b 3d 22 54 41 |TASK 4:$|TASK="TA|
|000000f0| 53 4b 22 0d 00 aa 47 c8 | 99 20 22 57 69 6d 70 5f |SK"...G.|. "Wimp_|
|00000100| 49 6e 69 74 69 61 6c 69 | 73 65 22 2c 32 30 30 2c |Initiali|se",200,|
|00000110| 21 54 41 53 4b 2c 22 4c | 61 62 65 6c 20 70 72 69 |!TASK,"L|abel pri|
|00000120| 6e 74 65 72 22 20 b8 20 | 76 65 72 73 69 6f 6e 25 |nter" . |version%|
|00000130| 2c 74 68 69 73 74 61 73 | 6b 25 0d 00 b4 36 e7 20 |,thistas|k%...6. |
|00000140| 76 65 72 73 69 6f 6e 25 | 3c 32 30 30 20 8c 20 85 |version%|<200 . .|
|00000150| 20 30 2c 22 57 69 6e 64 | 6f 77 4d 61 6e 61 67 65 | 0,"Wind|owManage|
|00000160| 72 20 32 2e 30 30 20 72 | 65 71 75 69 72 65 64 22 |r 2.00 r|equired"|
|00000170| 0d 00 be 26 c8 99 20 22 | 57 69 6d 70 5f 43 6c 61 |...&.. "|Wimp_Cla|
|00000180| 69 6d 49 6e 74 65 72 66 | 61 63 65 22 2c 74 68 69 |imInterf|ace",thi|
|00000190| 73 74 61 73 6b 25 0d 00 | c8 1c ee 20 85 20 f2 77 |stask%..|... . .w|
|000001a0| 69 6d 70 79 5f 65 72 72 | 6f 72 28 9e 2c f6 24 2c |impy_err|or(.,.$,|
|000001b0| b9 29 0d 00 d2 11 de 20 | 62 6c 6f 63 6b 25 20 26 |.)..... |block% &|
|000001c0| 34 30 30 0d 00 dc 0e f2 | 69 6e 69 74 5f 76 61 72 |400.....|init_var|
|000001d0| 73 0d 00 e6 0f f2 73 65 | 74 75 70 5f 68 65 61 70 |s.....se|tup_heap|
|000001e0| 0d 00 f0 13 f2 73 65 74 | 75 70 5f 66 6f 6e 74 70 |.....set|up_fontp|
|000001f0| 61 74 68 0d 00 fa 0f f2 | 6c 6f 61 64 5f 73 65 74 |ath.....|load_set|
|00000200| 75 70 0d 01 04 11 69 5f | 73 69 7a 65 25 3d 26 31 |up....i_|size%=&1|
|00000210| 30 30 30 0d 01 0e 1a de | 20 69 6e 64 69 72 65 63 |000.....| indirec|
|00000220| 74 69 6f 6e 25 20 69 5f | 73 69 7a 65 25 0d 01 18 |tion% i_|size%...|
|00000230| 17 69 5f 70 74 72 25 3d | 69 6e 64 69 72 65 63 74 |.i_ptr%=|indirect|
|00000240| 69 6f 6e 25 0d 01 22 1f | 69 5f 65 6e 64 25 3d 69 |ion%..".|i_end%=i|
|00000250| 6e 64 69 72 65 63 74 69 | 6f 6e 25 2b 69 5f 73 69 |ndirecti|on%+i_si|
|00000260| 7a 65 25 0d 01 2c 17 6d | 65 6e 75 62 6c 6f 63 6b |ze%..,.m|enublock|
|00000270| 73 69 7a 65 25 3d 26 32 | 30 30 0d 01 36 1f de 20 |size%=&2|00..6.. |
|00000280| 6d 65 6e 75 62 6c 6f 63 | 6b 25 20 6d 65 6e 75 62 |menubloc|k% menub|
|00000290| 6c 6f 63 6b 73 69 7a 65 | 25 0d 01 40 39 c8 99 20 |locksize|%..@9.. |
|000002a0| 22 4f 53 5f 46 69 6c 65 | 22 2c 35 2c 22 3c 50 72 |"OS_File|",5,"<Pr|
|000002b0| 69 6e 74 4c 62 6c 73 24 | 44 69 72 3e 2e 53 70 72 |intLbls$|Dir>.Spr|
|000002c0| 69 74 65 73 22 20 b8 20 | 2c 2c 2c 2c 73 70 6c 65 |ites" . |,,,,sple|
|000002d0| 6e 25 0d 01 4a 27 f2 6e | 65 77 5f 62 6c 6f 63 6b |n%..J'.n|ew_block|
|000002e0| 28 73 70 72 69 74 65 73 | 61 6e 63 68 6f 72 25 2c |(sprites|anchor%,|
|000002f0| 73 70 6c 65 6e 25 2b 34 | 29 0d 01 54 23 70 72 69 |splen%+4|)..T#pri|
|00000300| 76 61 74 65 73 70 72 69 | 74 65 73 25 3d 21 73 70 |vatespri|tes%=!sp|
|00000310| 72 69 74 65 73 61 6e 63 | 68 6f 72 25 0d 01 5e 1d |ritesanc|hor%..^.|
|00000320| 21 70 72 69 76 61 74 65 | 73 70 72 69 74 65 73 25 |!private|sprites%|
|00000330| 3d 73 70 6c 65 6e 25 2b | 34 0d 01 68 40 c8 99 20 |=splen%+|4..h@.. |
|00000340| 22 4f 53 5f 46 69 6c 65 | 22 2c 32 35 35 2c 22 3c |"OS_File|",255,"<|
|00000350| 50 72 69 6e 74 4c 62 6c | 73 24 44 69 72 3e 2e 53 |PrintLbl|s$Dir>.S|
|00000360| 70 72 69 74 65 73 22 2c | 70 72 69 76 61 74 65 73 |prites",|privates|
|00000370| 70 72 69 74 65 73 25 2b | 34 0d 01 72 11 f2 6c 6f |prites%+|4..r..lo|
|00000380| 61 64 5f 77 69 6e 64 6f | 77 73 0d 01 7c 12 6d 69 |ad_windo|ws..|.mi|
|00000390| 5f 70 74 72 25 3d 69 5f | 70 74 72 25 0d 01 86 11 |_ptr%=i_|ptr%....|
|000003a0| f2 63 72 65 61 74 65 5f | 6d 65 6e 75 73 0d 01 90 |.create_|menus...|
|000003b0| 13 f2 63 72 65 61 74 65 | 5f 69 63 6f 6e 62 61 72 |..create|_iconbar|
|000003c0| 0d 01 9a 0b 71 75 69 74 | 25 3d a3 0d 01 a4 0c 65 |....quit|%=.....e|
|000003d0| 72 77 6f 6b 25 3d b9 0d | 01 ae 1c ee 20 85 20 f2 |rwok%=..|.... . .|
|000003e0| 77 69 6d 70 79 5f 65 72 | 72 6f 72 28 9e 2c f6 24 |wimpy_er|ror(.,.$|
|000003f0| 2c b9 29 0d 01 b8 05 f5 | 0d 01 c2 24 c8 99 20 22 |,.).....|...$.. "|
|00000400| 57 69 6d 70 5f 50 6f 6c | 6c 22 2c 2c 62 6c 6f 63 |Wimp_Pol|l",,bloc|
|00000410| 6b 25 20 b8 20 52 65 61 | 73 6f 6e 25 0d 01 cc 2c |k% . Rea|son%...,|
|00000420| c8 99 20 22 57 69 6d 70 | 5f 50 6f 6c 6c 50 6f 69 |.. "Wimp|_PollPoi|
|00000430| 6e 74 65 72 22 2c 52 65 | 61 73 6f 6e 25 2c 2c 74 |nter",Re|ason%,,t|
|00000440| 68 69 73 74 61 73 6b 25 | 0d 01 d6 10 c8 8e 20 52 |histask%|...... R|
|00000450| 65 61 73 6f 6e 25 20 ca | 0d 01 e0 1f c9 20 31 20 |eason% .|..... 1 |
|00000460| 20 20 20 20 3a 20 f2 72 | 65 64 72 61 77 77 28 21 | : .r|edraww(!|
|00000470| 62 6c 6f 63 6b 25 29 0d | 01 ea 2a c9 20 32 20 20 |block%).|..*. 2 |
|00000480| 20 20 20 3a 20 c8 99 20 | 22 57 69 6d 70 5f 4f 70 | : .. |"Wimp_Op|
|00000490| 65 6e 57 69 6e 64 6f 77 | 22 2c 2c 62 6c 6f 63 6b |enWindow|",,block|
|000004a0| 25 0d 01 f4 24 c9 20 33 | 20 20 20 20 20 3a 20 f2 |%...$. 3| : .|
|000004b0| 63 6c 6f 73 65 5f 77 69 | 6e 64 6f 77 28 21 62 6c |close_wi|ndow(!bl|
|000004c0| 6f 63 6b 25 29 0d 01 fe | 44 c9 20 36 20 20 20 20 |ock%)...|D. 6 |
|000004d0| 20 3a 20 f2 6d 6f 75 73 | 65 28 62 6c 6f 63 6b 25 | : .mous|e(block%|
|000004e0| 21 30 2c 62 6c 6f 63 6b | 25 21 34 2c 62 6c 6f 63 |!0,block|%!4,bloc|
|000004f0| 6b 25 21 38 2c 62 6c 6f | 63 6b 25 21 31 32 2c 62 |k%!8,blo|ck%!12,b|
|00000500| 6c 6f 63 6b 25 21 31 36 | 29 0d 02 08 3e c9 20 38 |lock%!16|)...>. 8|
|00000510| 20 20 20 20 20 3a 20 f2 | 6b 65 79 70 72 65 73 73 | : .|keypress|
|00000520| 28 62 6c 6f 63 6b 25 21 | 30 2c 62 6c 6f 63 6b 25 |(block%!|0,block%|
|00000530| 21 34 2c 62 6c 6f 63 6b | 25 21 32 30 2c 62 6c 6f |!4,block|%!20,blo|
|00000540| 63 6b 25 21 32 34 29 0d | 02 12 1a c9 20 39 20 20 |ck%!24).|.... 9 |
|00000550| 20 20 20 3a 20 f2 6d 65 | 6e 75 5f 63 68 6f 69 63 | : .me|nu_choic|
|00000560| 65 0d 02 1c 1f c9 20 31 | 37 2c 31 38 20 3a 20 f2 |e..... 1|7,18 : .|
|00000570| 6d 65 73 73 61 67 65 5f | 72 65 63 65 69 76 65 64 |message_|received|
|00000580| 0d 02 26 1d c9 20 31 39 | 20 20 20 20 3a 20 f2 6e |..&.. 19| : .n|
|00000590| 6f 5f 61 63 6b 6e 6f 77 | 6c 65 64 67 65 0d 02 30 |o_acknow|ledge..0|
|000005a0| 05 cb 0d 02 3a 0b fd 20 | 71 75 69 74 25 0d 02 44 |....:.. |quit%..D|
|000005b0| 0e f2 73 68 75 74 5f 64 | 6f 77 6e 0d 02 4e 05 e0 |..shut_d|own..N..|
|000005c0| 0d 02 58 05 3a 0d 02 62 | 10 dd 20 f2 73 68 75 74 |..X.:..b|.. .shut|
|000005d0| 5f 64 6f 77 6e 0d 02 6c | 1b c8 99 20 22 57 69 6d |_down..l|... "Wim|
|000005e0| 70 5f 43 6c 6f 73 65 54 | 65 6d 70 6c 61 74 65 22 |p_CloseT|emplate"|
|000005f0| 0d 02 76 0f f2 6c 6f 73 | 65 5f 66 6f 6e 74 73 0d |..v..los|e_fonts.|
|00000600| 02 80 28 c8 99 20 22 57 | 69 6d 70 5f 52 65 6c 65 |..(.. "W|imp_Rele|
|00000610| 61 73 65 49 6e 74 65 72 | 66 61 63 65 22 2c 74 68 |aseInter|face",th|
|00000620| 69 73 74 61 73 6b 25 0d | 02 8a 17 c8 99 20 22 57 |istask%.|..... "W|
|00000630| 69 6d 70 5f 43 6c 6f 73 | 65 44 6f 77 6e 22 0d 02 |imp_Clos|eDown"..|
|00000640| 94 05 e1 0d 02 9e 05 3a | 0d 02 a8 17 dd 20 f2 6d |.......:|..... .m|
|00000650| 65 73 73 61 67 65 5f 72 | 65 63 65 69 76 65 64 0d |essage_r|eceived.|
|00000660| 02 b2 08 ea 20 69 25 0d | 02 bc 16 66 72 6f 6d 74 |.... i%.|...fromt|
|00000670| 61 73 6b 25 3d 62 6c 6f | 63 6b 25 21 34 0d 02 c6 |ask%=blo|ck%!4...|
|00000680| 14 6d 79 5f 72 65 66 25 | 3d 62 6c 6f 63 6b 25 21 |.my_ref%|=block%!|
|00000690| 38 0d 02 d0 17 79 6f 75 | 72 5f 72 65 66 25 3d 62 |8....you|r_ref%=b|
|000006a0| 6c 6f 63 6b 25 21 31 32 | 0d 02 da 16 6d 65 73 73 |lock%!12|....mess|
|000006b0| 61 67 65 25 3d 62 6c 6f | 63 6b 25 21 31 36 0d 02 |age%=blo|ck%!16..|
|000006c0| e4 25 ff 28 22 53 65 74 | 20 4d 65 73 73 61 67 65 |.%.("Set| Message|
|000006d0| 24 54 79 70 65 20 22 2b | c3 7e 6d 65 73 73 61 67 |$Type "+|.~messag|
|000006e0| 65 25 29 0d 02 ee 11 c8 | 8e 20 6d 65 73 73 61 67 |e%).....|. messag|
|000006f0| 65 25 20 ca 0d 02 f8 10 | c9 20 30 3a 20 71 75 69 |e% .....|. 0: qui|
|00000700| 74 25 3d b9 0d 03 02 1b | c9 20 31 3a 20 f4 20 4d |t%=.....|. 1: . M|
|00000710| 65 73 73 61 67 65 5f 44 | 61 74 61 53 61 76 65 0d |essage_D|ataSave.|
|00000720| 03 0c 42 e7 20 62 6c 6f | 63 6b 25 21 34 30 3d 26 |..B. blo|ck%!40=&|
|00000730| 46 46 46 20 80 20 62 6c | 6f 63 6b 25 21 32 30 3d |FFF . bl|ock%!20=|
|00000740| 77 69 6e 64 6f 77 25 28 | 6d 61 69 6e 57 25 2c 31 |window%(|mainW%,1|
|00000750| 29 20 80 20 62 6c 6f 63 | 6b 25 21 32 34 3d 33 20 |) . bloc|k%!24=3 |
|00000760| 8c 0d 03 16 10 62 6c 6f | 63 6b 25 21 33 36 3d 2d |.....blo|ck%!36=-|
|00000770| 31 0d 03 20 10 62 6c 6f | 63 6b 25 21 30 3d 32 35 |1.. .blo|ck%!0=25|
|00000780| 36 0d 03 2a 22 24 28 62 | 6c 6f 63 6b 25 2b 34 34 |6..*"$(b|lock%+44|
|00000790| 29 3d 22 3c 57 69 6d 70 | 24 53 63 72 61 70 3e 22 |)="<Wimp|$Scrap>"|
|000007a0| 2b bd 30 0d 03 34 15 62 | 6c 6f 63 6b 25 21 31 32 |+.0..4.b|lock%!12|
|000007b0| 3d 6d 79 5f 72 65 66 25 | 0d 03 3e 0f 62 6c 6f 63 |=my_ref%|..>.bloc|
|000007c0| 6b 25 21 31 36 3d 32 0d | 03 48 14 e3 20 69 25 3d |k%!16=2.|.H.. i%=|
|000007d0| 30 20 b8 20 32 35 36 20 | 88 20 34 0d 03 52 1d 62 |0 . 256 |. 4..R.b|
|000007e0| 6c 6f 63 6b 25 21 28 69 | 25 2b 35 31 32 29 3d 62 |lock%!(i|%+512)=b|
|000007f0| 6c 6f 63 6b 25 21 69 25 | 0d 03 5c 05 ed 0d 03 66 |lock%!i%|..\....f|
|00000800| 19 69 6e 70 75 74 66 69 | 6c 65 24 3d 22 ab 20 4e |.inputfi|le$=". N|
|00000810| 6f 6e 65 20 bb 22 0d 03 | 70 14 e7 20 62 6c 6f 63 |one ."..|p.. bloc|
|00000820| 6b 25 21 33 36 3d 2d 31 | 20 8c 0d 03 7a 0d 52 41 |k%!36=-1| ...z.RA|
|00000830| 4d 62 25 3d 32 35 36 0d | 03 84 05 cc 0d 03 8e 13 |Mb%=256.|........|
|00000840| 52 41 4d 62 25 3d 62 6c | 6f 63 6b 25 21 33 36 0d |RAMb%=bl|ock%!36.|
|00000850| 03 98 05 cd 0d 03 a2 10 | 74 72 61 6e 73 66 65 72 |........|transfer|
|00000860| 73 25 3d 30 0d 03 ac 13 | 62 6c 6f 63 6b 25 21 33 |s%=0....|block%!3|
|00000870| 36 3d 52 41 4d 62 25 0d | 03 b6 0f 66 69 6c 65 73 |6=RAMb%.|...files|
|00000880| 69 7a 65 25 3d 30 0d 03 | c0 2d e7 20 21 66 69 6c |ize%=0..|.-. !fil|
|00000890| 65 61 6e 63 68 6f 72 25 | 20 8c 20 f2 73 63 72 61 |eanchor%| . .scra|
|000008a0| 70 62 6c 6f 63 6b 28 66 | 69 6c 65 61 6e 63 68 6f |pblock(f|ileancho|
|000008b0| 72 25 29 0d 03 ca 25 f2 | 6e 65 77 5f 62 6c 6f 63 |r%)...%.|new_bloc|
|000008c0| 6b 28 66 69 6c 65 61 6e | 63 68 6f 72 25 2c 62 6c |k(filean|chor%,bl|
|000008d0| 6f 63 6b 25 21 33 36 29 | 0d 03 d4 0f 62 6c 6f 63 |ock%!36)|....bloc|
|000008e0| 6b 25 21 31 36 3d 36 0d | 03 de 1a 62 6c 6f 63 6b |k%!16=6.|...block|
|000008f0| 25 21 32 30 3d 21 66 69 | 6c 65 61 6e 63 68 6f 72 |%!20=!fi|leanchor|
|00000900| 25 0d 03 e8 17 62 6c 6f | 63 6b 25 21 32 34 3d 62 |%....blo|ck%!24=b|
|00000910| 6c 6f 63 6b 25 21 33 36 | 0d 03 f2 2d c8 99 20 22 |lock%!36|...-.. "|
|00000920| 57 69 6d 70 5f 53 65 6e | 64 4d 65 73 73 61 67 65 |Wimp_Sen|dMessage|
|00000930| 22 2c 31 38 2c 62 6c 6f | 63 6b 25 2c 66 72 6f 6d |",18,blo|ck%,from|
|00000940| 74 61 73 6b 25 0d 03 fc | 05 cd 0d 04 06 1b c9 20 |task%...|....... |
|00000950| 33 3a 20 f4 20 4d 65 73 | 73 61 67 65 5f 44 61 74 |3: . Mes|sage_Dat|
|00000960| 61 4c 6f 61 64 0d 04 10 | 42 e7 20 62 6c 6f 63 6b |aLoad...|B. block|
|00000970| 25 21 34 30 3d 26 46 46 | 46 20 80 20 62 6c 6f 63 |%!40=&FF|F . bloc|
|00000980| 6b 25 21 32 30 3d 77 69 | 6e 64 6f 77 25 28 6d 61 |k%!20=wi|ndow%(ma|
|00000990| 69 6e 57 25 2c 31 29 20 | 80 20 62 6c 6f 63 6b 25 |inW%,1) |. block%|
|000009a0| 21 32 34 3d 33 20 8c 0d | 04 1a 20 f2 6c 6f 61 64 |!24=3 ..|.. .load|
|000009b0| 43 53 56 28 a4 67 65 74 | 73 74 72 28 62 6c 6f 63 |CSV(.get|str(bloc|
|000009c0| 6b 25 2b 34 34 29 29 0d | 04 24 10 62 6c 6f 63 6b |k%+44)).|.$.block|
|000009d0| 25 21 30 3d 32 35 36 0d | 04 2e 15 62 6c 6f 63 6b |%!0=256.|...block|
|000009e0| 25 21 31 32 3d 6d 79 5f | 72 65 66 25 0d 04 38 0f |%!12=my_|ref%..8.|
|000009f0| 62 6c 6f 63 6b 25 21 31 | 36 3d 34 0d 04 42 2d c8 |block%!1|6=4..B-.|
|00000a00| 99 20 22 57 69 6d 70 5f | 53 65 6e 64 4d 65 73 73 |. "Wimp_|SendMess|
|00000a10| 61 67 65 22 2c 31 37 2c | 62 6c 6f 63 6b 25 2c 66 |age",17,|block%,f|
|00000a20| 72 6f 6d 74 61 73 6b 25 | 0d 04 4c 3d e7 20 61 70 |romtask%|..L=. ap|
|00000a30| 70 74 72 61 6e 73 25 20 | 8c 20 ff 28 22 52 65 6d |ptrans% |. .("Rem|
|00000a40| 6f 76 65 20 22 2b a4 67 | 65 74 73 74 72 28 62 6c |ove "+.g|etstr(bl|
|00000a50| 6f 63 6b 25 2b 34 34 29 | 29 3a 61 70 70 74 72 61 |ock%+44)|):apptra|
|00000a60| 6e 73 25 3d a3 0d 04 56 | 05 cd 0d 04 60 1e c9 20 |ns%=...V|....`.. |
|00000a70| 37 3a 20 f4 20 4d 65 73 | 73 61 67 65 5f 52 41 4d |7: . Mes|sage_RAM|
|00000a80| 54 72 61 6e 73 6d 69 74 | 0d 04 6a 10 f2 52 41 4d |Transmit|..j..RAM|
|00000a90| 54 72 61 6e 73 6d 69 74 | 0d 04 74 23 c9 20 26 34 |Transmit|..t#. &4|
|00000aa0| 30 30 43 30 3a 20 f4 20 | 4d 65 73 73 61 67 65 5f |00C0: . |Message_|
|00000ab0| 4d 65 6e 75 57 61 72 6e | 69 6e 67 0d 04 7e 1b e7 |MenuWarn|ing..~..|
|00000ac0| 20 62 6c 6f 63 6b 25 21 | 32 30 3c 3d 77 69 6e 64 | block%!|20<=wind|
|00000ad0| 6f 77 73 25 20 8c 0d 04 | 88 10 57 25 3d 62 6c 6f |ows% ...|..W%=blo|
|00000ae0| 63 6b 25 21 32 30 0d 04 | 92 18 e7 20 77 69 6e 64 |ck%!20..|... wind|
|00000af0| 6f 77 25 28 57 25 2c 31 | 29 3d 2d 31 20 8c 0d 04 |ow%(W%,1|)=-1 ...|
|00000b00| 9c 39 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |.9.. "Wi|mp_Creat|
|00000b10| 65 57 69 6e 64 6f 77 22 | 2c 2c 77 69 6e 64 6f 77 |eWindow"|,,window|
|00000b20| 25 28 57 25 2c 32 29 20 | b8 20 77 69 6e 64 6f 77 |%(W%,2) |. window|
|00000b30| 25 28 57 25 2c 31 29 0d | 04 a6 05 cd 0d 04 b0 1b |%(W%,1).|........|
|00000b40| 62 6c 6f 63 6b 25 21 32 | 30 3d 77 69 6e 64 6f 77 |block%!2|0=window|
|00000b50| 25 28 57 25 2c 31 29 0d | 04 ba 05 cd 0d 04 c4 3a |%(W%,1).|.......:|
|00000b60| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 53 |.. "Wimp|_CreateS|
|00000b70| 75 62 4d 65 6e 75 22 2c | 2c 62 6c 6f 63 6b 25 21 |ubMenu",|,block%!|
|00000b80| 32 30 2c 62 6c 6f 63 6b | 25 21 32 34 2c 62 6c 6f |20,block|%!24,blo|
|00000b90| 63 6b 25 21 32 38 0d 04 | ce 22 c9 20 26 34 30 30 |ck%!28..|.". &400|
|00000ba0| 43 37 3a 20 f4 20 4d 65 | 73 73 61 67 65 5f 54 61 |C7: . Me|ssage_Ta|
|00000bb0| 73 6b 4e 61 6d 65 49 73 | 0d 04 d8 3d 69 6e 70 75 |skNameIs|...=inpu|
|00000bc0| 74 66 69 6c 65 24 3d 22 | 52 41 4d 20 74 72 61 6e |tfile$="|RAM tran|
|00000bd0| 73 66 65 72 20 66 72 6f | 6d 20 22 22 22 2b a4 67 |sfer fro|m """+.g|
|00000be0| 65 74 73 74 72 28 62 6c | 6f 63 6b 25 2b 32 38 29 |etstr(bl|ock%+28)|
|00000bf0| 2b 22 22 22 22 0d 04 e2 | 32 24 a4 69 63 6f 6e 74 |+""""...|2$.icont|
|00000c00| 65 78 74 61 64 64 72 28 | 77 69 6e 64 6f 77 25 28 |extaddr(|window%(|
|00000c10| 6d 61 69 6e 57 25 2c 31 | 29 2c 32 29 3d 69 6e 70 |mainW%,1|),2)=inp|
|00000c20| 75 74 66 69 6c 65 24 0d | 04 ec 1c f2 72 6a 28 77 |utfile$.|....rj(w|
|00000c30| 69 6e 64 6f 77 25 28 6d | 61 69 6e 57 25 2c 31 29 |indow%(m|ainW%,1)|
|00000c40| 2c 32 29 0d 04 f6 1f c9 | 20 26 38 30 31 34 37 3a |,2).....| &80147:|
|00000c50| 20 f4 20 70 72 69 6e 74 | 65 72 20 63 68 61 6e 67 | . print|er chang|
|00000c60| 65 64 0d 05 00 1b e7 20 | 77 69 6e 64 6f 77 25 28 |ed..... |window%(|
|00000c70| 6d 61 69 6e 57 25 2c 31 | 29 3e 30 20 8c 0d 05 0a |mainW%,1|)>0 ....|
|00000c80| 0c f2 70 64 72 69 76 65 | 72 0d 05 14 1c 6d 61 69 |..pdrive|r....mai|
|00000c90| 6e 48 25 3d 77 69 6e 64 | 6f 77 25 28 6d 61 69 6e |nH%=wind|ow%(main|
|00000ca0| 57 25 2c 31 29 0d 05 1e | 3d 24 a4 69 63 6f 6e 74 |W%,1)...|=$.icont|
|00000cb0| 65 78 74 61 64 64 72 28 | 6d 61 69 6e 48 25 2c 31 |extaddr(|mainH%,1|
|00000cc0| 33 29 3d 70 64 72 69 76 | 65 72 24 3a f2 72 65 64 |3)=pdriv|er$:.red|
|00000cd0| 72 61 77 69 63 6f 6e 28 | 6d 61 69 6e 48 25 2c 31 |rawicon(|mainH%,1|
|00000ce0| 33 29 0d 05 28 3d 24 a4 | 69 63 6f 6e 74 65 78 74 |3)..(=$.|icontext|
|00000cf0| 61 64 64 72 28 6d 61 69 | 6e 48 25 2c 31 34 29 3d |addr(mai|nH%,14)=|
|00000d00| 70 72 65 73 24 20 20 20 | 3a f2 72 65 64 72 61 77 |pres$ |:.redraw|
|00000d10| 69 63 6f 6e 28 6d 61 69 | 6e 48 25 2c 31 34 29 0d |icon(mai|nH%,14).|
|00000d20| 05 32 21 f2 6c 69 67 68 | 74 69 63 6f 6e 28 6d 61 |.2!.ligh|ticon(ma|
|00000d30| 69 6e 48 25 2c 39 2c 70 | 64 72 69 76 65 72 25 29 |inH%,9,p|driver%)|
|00000d40| 0d 05 3c 05 cd 0d 05 46 | 05 cb 0d 05 50 05 e1 0d |..<....F|....P...|
|00000d50| 05 5a 05 3a 0d 05 64 28 | dd 20 f2 77 69 6d 70 79 |.Z.:..d(|. .wimpy|
|00000d60| 5f 65 72 72 6f 72 28 63 | 6f 64 65 25 2c 6d 65 73 |_error(c|ode%,mes|
|00000d70| 73 24 2c 63 61 6e 71 75 | 69 74 25 29 0d 05 6e 13 |s$,canqu|it%)..n.|
|00000d80| ea 20 77 68 61 74 25 2c | 72 65 73 75 6c 74 25 0d |. what%,|result%.|
|00000d90| 05 78 18 c8 99 20 22 48 | 6f 75 72 67 6c 61 73 73 |.x... "H|ourglass|
|00000da0| 5f 53 6d 61 73 68 22 0d | 05 82 28 e7 20 63 6f 64 |_Smash".|..(. cod|
|00000db0| 65 25 3e 31 20 8c 20 6d | 65 73 73 24 2b 3d 22 3b |e%>1 . m|ess$+=";|
|00000dc0| 20 63 6f 64 65 3a 20 22 | 2b c3 63 6f 64 65 25 0d | code: "|+.code%.|
|00000dd0| 05 8c 3c e7 20 63 61 6e | 71 75 69 74 25 20 8c 20 |..<. can|quit% . |
|00000de0| 6d 65 73 73 24 2b 3d 22 | 3b 20 28 43 61 6e 63 65 |mess$+="|; (Cance|
|00000df0| 6c 20 74 6f 20 71 75 69 | 74 2c 20 4f 4b 20 74 6f |l to qui|t, OK to|
|00000e00| 20 63 6f 6e 74 69 6e 75 | 65 29 22 0d 05 96 10 e7 | continu|e)".....|
|00000e10| 20 65 72 77 6f 6b 25 3d | b9 20 8c 0d 05 a0 0c 65 | erwok%=|. .....e|
|00000e20| 72 77 6f 6b 25 3d a3 0d | 05 aa 19 f2 6f 70 65 6e |rwok%=..|....open|
|00000e30| 5f 77 69 6e 64 6f 77 28 | 65 72 72 6f 72 57 25 29 |_window(|errorW%)|
|00000e40| 0d 05 b4 1e 65 72 72 6f | 72 48 25 3d 77 69 6e 64 |....erro|rH%=wind|
|00000e50| 6f 77 25 28 65 72 72 6f | 72 57 25 2c 31 29 0d 05 |ow%(erro|rW%,1)..|
|00000e60| be 12 e7 20 63 61 6e 71 | 75 69 74 25 3d a3 20 8c |... canq|uit%=. .|
|00000e70| 0d 05 c8 14 62 6c 6f 63 | 6b 25 21 30 3d 65 72 72 |....bloc|k%!0=err|
|00000e80| 6f 72 48 25 0d 05 d2 0e | 62 6c 6f 63 6b 25 21 34 |orH%....|block%!4|
|00000e90| 3d 33 0d 05 dc 20 c8 99 | 20 22 57 69 6d 70 5f 44 |=3... ..| "Wimp_D|
|00000ea0| 65 6c 65 74 65 49 63 6f | 6e 22 2c 2c 62 6c 6f 63 |eleteIco|n",,bloc|
|00000eb0| 6b 25 0d 05 e6 05 cd 0d | 05 f0 23 24 a4 69 63 6f |k%......|..#$.ico|
|00000ec0| 6e 74 65 78 74 61 64 64 | 72 28 65 72 72 6f 72 48 |ntextadd|r(errorH|
|00000ed0| 25 2c 34 29 3d 6d 65 73 | 73 24 0d 05 fa 14 62 6c |%,4)=mes|s$....bl|
|00000ee0| 6f 63 6b 25 21 30 3d 65 | 72 72 6f 72 48 25 0d 06 |ock%!0=e|rrorH%..|
|00000ef0| 04 26 c8 99 20 22 57 69 | 6d 70 5f 47 65 74 57 69 |.&.. "Wi|mp_GetWi|
|00000f00| 6e 64 6f 77 4f 75 74 6c | 69 6e 65 22 2c 2c 62 6c |ndowOutl|ine",,bl|
|00000f10| 6f 63 6b 25 0d 06 0e 41 | c8 97 20 c8 93 20 62 6c |ock%...A|.. .. bl|
|00000f20| 6f 63 6b 25 21 34 2c 62 | 6c 6f 63 6b 25 21 38 2c |ock%!4,b|lock%!8,|
|00000f30| 62 6c 6f 63 6b 25 21 31 | 32 2d 62 6c 6f 63 6b 25 |block%!1|2-block%|
|00000f40| 21 34 2c 62 6c 6f 63 6b | 25 21 31 36 2d 62 6c 6f |!4,block|%!16-blo|
|00000f50| 63 6b 25 21 38 0d 06 18 | 05 cc 0d 06 22 1b 77 68 |ck%!8...|....".wh|
|00000f60| 61 74 25 3d 28 94 63 61 | 6e 71 75 69 74 25 2b 31 |at%=(.ca|nquit%+1|
|00000f70| 29 20 84 20 31 0d 06 2c | 11 21 62 6c 6f 63 6b 25 |) . 1..,|.!block%|
|00000f80| 3d 63 6f 64 65 25 0d 06 | 36 18 24 28 62 6c 6f 63 |=code%..|6.$(bloc|
|00000f90| 6b 25 2b 34 29 3d 6d 65 | 73 73 24 2b bd 30 0d 06 |k%+4)=me|ss$+.0..|
|00000fa0| 40 41 c8 99 20 22 57 69 | 6d 70 5f 52 65 70 6f 72 |@A.. "Wi|mp_Repor|
|00000fb0| 74 45 72 72 6f 72 22 2c | 62 6c 6f 63 6b 25 2c 77 |tError",|block%,w|
|00000fc0| 68 61 74 25 2c 22 4c 61 | 62 65 6c 20 70 72 69 6e |hat%,"La|bel prin|
|00000fd0| 74 65 72 22 20 b8 20 2c | 72 65 73 75 6c 74 25 0d |ter" . ,|result%.|
|00000fe0| 06 4a 11 e7 20 72 65 73 | 75 6c 74 25 3d 32 20 8c |.J.. res|ult%=2 .|
|00000ff0| 0d 06 54 0e f2 73 68 75 | 74 5f 64 6f 77 6e 0d 06 |..T..shu|t_down..|
|00001000| 5e 05 e0 0d 06 68 05 cd | 0d 06 72 05 cd 0d 06 7c |^....h..|..r....||
|00001010| 05 e1 0d 06 86 05 3a 0d | 06 90 15 dd 20 f2 63 72 |......:.|.... .cr|
|00001020| 65 61 74 65 5f 69 63 6f | 6e 62 61 72 0d 06 9a 0f |eate_ico|nbar....|
|00001030| 62 6c 6f 63 6b 25 21 30 | 3d 2d 31 0d 06 a4 0e 62 |block%!0|=-1....b|
|00001040| 6c 6f 63 6b 25 21 34 3d | 30 0d 06 ae 0e 62 6c 6f |lock%!4=|0....blo|
|00001050| 63 6b 25 21 38 3d 30 0d | 06 b8 10 62 6c 6f 63 6b |ck%!8=0.|...block|
|00001060| 25 21 31 32 3d 36 38 0d | 06 c2 10 62 6c 6f 63 6b |%!12=68.|...block|
|00001070| 25 21 31 36 3d 36 38 0d | 06 cc 13 62 6c 6f 63 6b |%!16=68.|...block|
|00001080| 25 21 32 30 3d 26 33 30 | 30 32 0d 06 d6 1d 24 28 |%!20=&30|02....$(|
|00001090| 62 6c 6f 63 6b 25 2b 32 | 34 29 3d 22 21 50 72 69 |block%+2|4)="!Pri|
|000010a0| 6e 74 4c 62 6c 73 22 0d | 06 e0 20 c8 99 20 22 57 |ntLbls".|.. .. "W|
|000010b0| 69 6d 70 5f 43 72 65 61 | 74 65 49 63 6f 6e 22 2c |imp_Crea|teIcon",|
|000010c0| 2c 62 6c 6f 63 6b 25 0d | 06 ea 05 e1 0d 06 f4 05 |,block%.|........|
|000010d0| 3a 0d 06 fe 1c dd 2d 20 | 4d 65 6e 75 20 70 72 6f |:.....- |Menu pro|
|000010e0| 63 65 64 75 72 65 73 20 | 42 45 47 49 4e 0d 07 08 |cedures |BEGIN...|
|000010f0| 05 3a 0d 07 12 1c dd 20 | f2 74 69 63 6b 72 28 61 |.:..... |.tickr(a|
|00001100| 25 2c 69 31 25 2c 69 32 | 25 2c 69 78 25 29 0d 07 |%,i1%,i2|%,ix%)..|
|00001110| 1c 0c ea 20 69 25 2c 69 | 61 25 0d 07 26 14 69 61 |... i%,i|a%..&.ia|
|00001120| 25 3d 61 25 2b 32 38 2b | 32 34 2a 69 31 25 0d 07 |%=a%+28+|24*i1%..|
|00001130| 30 12 e3 20 69 25 3d 69 | 31 25 20 b8 20 69 32 25 |0.. i%=i|1% . i2%|
|00001140| 0d 07 3a 34 e7 20 69 78 | 25 3d 69 25 20 8c 20 21 |..:4. ix|%=i% . !|
|00001150| 69 61 25 3d 21 69 61 25 | 20 84 20 31 20 8b 20 21 |ia%=!ia%| . 1 . !|
|00001160| 69 61 25 3d 21 69 61 25 | 20 80 20 26 46 46 46 46 |ia%=!ia%| . &FFFF|
|00001170| 46 46 46 45 0d 07 44 0b | 69 61 25 2b 3d 32 34 0d |FFFE..D.|ia%+=24.|
|00001180| 07 4e 05 ed 0d 07 58 05 | e1 0d 07 62 05 3a 0d 07 |.N....X.|...b.:..|
|00001190| 6c 16 dd 20 f2 6c 69 67 | 68 74 28 61 25 2c 69 25 |l.. .lig|ht(a%,i%|
|000011a0| 2c 63 25 29 0d 07 76 12 | 61 25 3d 61 25 2b 33 36 |,c%)..v.|a%=a%+36|
|000011b0| 2b 32 34 2a 69 25 0d 07 | 80 34 e7 20 63 25 20 8c |+24*i%..|.4. c% .|
|000011c0| 20 21 61 25 3d 21 61 25 | 20 80 20 26 46 46 42 46 | !a%=!a%| . &FFBF|
|000011d0| 46 46 46 46 20 8b 20 21 | 61 25 3d 21 61 25 20 84 |FFFF . !|a%=!a% .|
|000011e0| 20 26 30 30 34 30 30 30 | 30 30 0d 07 8a 05 e1 0d | &004000|00......|
|000011f0| 07 94 05 3a 0d 07 9e 15 | dd 20 f2 74 69 63 6b 28 |...:....|. .tick(|
|00001200| 61 25 2c 69 25 2c 63 25 | 29 0d 07 a8 12 61 25 3d |a%,i%,c%|)....a%=|
|00001210| 61 25 2b 32 38 2b 32 34 | 2a 69 25 0d 07 b2 2c e7 |a%+28+24|*i%...,.|
|00001220| 20 63 25 20 8c 20 21 61 | 25 3d 21 61 25 20 84 20 | c% . !a|%=!a% . |
|00001230| 31 20 8b 20 21 61 25 3d | 21 61 25 20 80 20 26 46 |1 . !a%=|!a% . &F|
|00001240| 46 46 46 46 46 46 45 0d | 07 bc 05 e1 0d 07 c6 05 |FFFFFFE.|........|
|00001250| 3a 0d 07 d0 11 dd 20 a4 | 6c 69 74 28 74 65 73 74 |:..... .|lit(test|
|00001260| 25 29 0d 07 da 21 e7 20 | 74 65 73 74 25 20 8c 20 |%)...!. |test% . |
|00001270| 3d 22 7c 6c 69 74 31 22 | 20 8b 20 3d 22 7c 6c 69 |="|lit1"| . ="|li|
|00001280| 74 30 22 0d 07 e4 05 3a | 0d 07 ee 12 dd 20 a4 74 |t0"....:|..... .t|
|00001290| 69 63 6b 28 74 65 73 74 | 25 29 0d 07 f8 21 e7 20 |ick(test|%)...!. |
|000012a0| 74 65 73 74 25 20 8c 20 | 3d 22 7c 74 6f 67 31 22 |test% . |="|tog1"|
|000012b0| 20 8b 20 3d 22 7c 74 6f | 67 30 22 0d 08 02 05 3a | . ="|to|g0"....:|
|000012c0| 0d 08 0c 35 dd 20 a4 73 | 75 62 28 6d 24 2c 6d 25 |...5. .s|ub(m$,m%|
|000012d0| 29 3d 22 7c 73 75 62 22 | 2b c2 22 30 30 30 30 30 |)="|sub"|+."00000|
|000012e0| 30 30 30 30 30 30 30 22 | 2b c3 28 6d 25 29 2c 31 |0000000"|+.(m%),1|
|000012f0| 32 29 2b 6d 24 0d 08 16 | 05 3a 0d 08 20 16 dd 20 |2)+m$...|.:.. .. |
|00001300| f2 6d 65 6e 75 69 74 65 | 6d 28 74 65 78 74 24 29 |.menuite|m(text$)|
|00001310| 0d 08 2a 33 ea 20 6d 65 | 6e 75 66 6c 61 67 73 25 |..*3. me|nuflags%|
|00001320| 2c 69 63 6f 6e 66 6c 61 | 67 73 25 2c 73 75 62 6d |,iconfla|gs%,subm|
|00001330| 65 6e 75 25 2c 69 6e 64 | 6c 65 6e 25 2c 76 61 6c |enu%,ind|len%,val|
|00001340| 69 64 25 0d 08 34 48 e7 | 20 6d 65 6e 75 70 74 72 |id%..4H.| menuptr|
|00001350| 25 2b 32 34 3e 6d 65 6e | 65 6e 64 25 20 8c 20 85 |%+24>men|end% . .|
|00001360| 20 32 35 35 2c 22 4e 6f | 20 72 6f 6f 6d 20 66 6f | 255,"No| room fo|
|00001370| 72 20 70 72 69 6d 61 72 | 79 20 6d 65 6e 75 20 64 |r primar|y menu d|
|00001380| 65 66 69 6e 69 74 69 6f | 6e 73 22 0d 08 3e 0d 76 |efinitio|ns"..>.v|
|00001390| 61 6c 69 64 25 3d 2d 31 | 0d 08 48 09 69 69 25 3d |alid%=-1|..H.ii%=|
|000013a0| a3 0d 08 52 0e 69 6e 64 | 6c 65 6e 25 3d 2d 31 0d |...R.ind|len%=-1.|
|000013b0| 08 5c 0f 73 75 62 6d 65 | 6e 75 25 3d 2d 31 0d 08 |.\.subme|nu%=-1..|
|000013c0| 66 10 e7 20 74 65 78 74 | 24 3d 22 22 20 e1 0d 08 |f.. text|$="" ...|
|000013d0| 70 10 6d 65 6e 75 66 6c | 61 67 73 25 3d 38 0d 08 |p.menufl|ags%=8..|
|000013e0| 7a 18 69 63 6f 6e 66 6c | 61 67 73 25 3d 26 30 37 |z.iconfl|ags%=&07|
|000013f0| 30 30 30 30 32 31 0d 08 | 84 14 c8 95 20 c0 74 65 |000021..|.... .te|
|00001400| 78 74 24 2c 31 29 3d 22 | 7c 22 0d 08 8e 14 c8 8e |xt$,1)="||"......|
|00001410| 20 c1 74 65 78 74 24 2c | 32 2c 33 29 20 ca 0d 08 | .text$,|2,3) ...|
|00001420| 98 0c c9 20 22 62 72 6b | 22 3a 0d 08 a2 11 6d 65 |... "brk|":....me|
|00001430| 6e 75 66 6c 61 67 73 25 | 2b 3d 32 0d 08 ac 13 74 |nuflags%|+=2....t|
|00001440| 65 78 74 24 3d c1 74 65 | 78 74 24 2c 35 29 0d 08 |ext$=.te|xt$,5)..|
|00001450| b6 0c c9 20 22 73 75 62 | 22 3a 0d 08 c0 1c 73 75 |... "sub|":....su|
|00001460| 62 6d 65 6e 75 25 3d bb | 28 c1 74 65 78 74 24 2c |bmenu%=.|(.text$,|
|00001470| 35 2c 31 32 29 29 0d 08 | ca 14 74 65 78 74 24 3d |5,12))..|..text$=|
|00001480| c1 74 65 78 74 24 2c 31 | 37 29 0d 08 d4 0c c9 20 |.text$,1|7)..... |
|00001490| 22 6c 69 74 22 3a 0d 08 | de 2a 69 63 6f 6e 66 6c |"lit":..|.*iconfl|
|000014a0| 61 67 73 25 2b 3d 28 31 | 3c 3c 32 32 29 2a 28 31 |ags%+=(1|<<22)*(1|
|000014b0| 2d bb 28 c1 74 65 78 74 | 24 2c 35 2c 31 29 29 29 |-.(.text|$,5,1)))|
|000014c0| 0d 08 e8 13 74 65 78 74 | 24 3d c1 74 65 78 74 24 |....text|$=.text$|
|000014d0| 2c 36 29 0d 08 f2 0c c9 | 20 22 74 6f 67 22 3a 0d |,6).....| "tog":.|
|000014e0| 08 fc 1e 6d 65 6e 75 66 | 6c 61 67 73 25 2b 3d bb |...menuf|lags%+=.|
|000014f0| 28 c1 74 65 78 74 24 2c | 35 2c 31 29 29 0d 09 06 |(.text$,|5,1))...|
|00001500| 13 74 65 78 74 24 3d c1 | 74 65 78 74 24 2c 36 29 |.text$=.|text$,6)|
|00001510| 0d 09 10 0c c9 20 22 77 | 72 69 22 3a 0d 09 1a 14 |..... "w|ri":....|
|00001520| c8 8e 20 c1 74 65 78 74 | 24 2c 35 2c 32 29 20 ca |.. .text|$,5,2) .|
|00001530| 0d 09 24 20 c9 20 22 73 | 70 22 3a 69 6e 64 6c 65 |..$ . "s|p":indle|
|00001540| 6e 25 3d 32 35 35 3a 76 | 61 6c 69 64 25 3d 2d 31 |n%=255:v|alid%=-1|
|00001550| 0d 09 2e 05 cb 0d 09 38 | 14 6d 65 6e 75 66 6c 61 |.......8|.menufla|
|00001560| 67 73 25 2b 3d 25 31 30 | 30 0d 09 42 13 74 65 78 |gs%+=%10|0..B.tex|
|00001570| 74 24 3d c1 74 65 78 74 | 24 2c 37 29 0d 09 4c 05 |t$=.text|$,7)..L.|
|00001580| cb 0d 09 56 05 ce 0d 09 | 60 29 e7 20 a9 28 74 65 |...V....|`). .(te|
|00001590| 78 74 24 29 3e 6d 65 6e | 75 6d 61 78 25 20 6d 65 |xt$)>men|umax% me|
|000015a0| 6e 75 6d 61 78 25 3d a9 | 28 74 65 78 74 24 29 0d |numax%=.|(text$).|
|000015b0| 09 6a 19 6d 65 6e 75 70 | 74 72 25 21 30 3d 6d 65 |.j.menup|tr%!0=me|
|000015c0| 6e 75 66 6c 61 67 73 25 | 0d 09 74 17 6d 65 6e 75 |nuflags%|..t.menu|
|000015d0| 70 74 72 25 21 34 3d 73 | 75 62 6d 65 6e 75 25 0d |ptr%!4=s|ubmenu%.|
|000015e0| 09 7e 19 6d 65 6e 75 70 | 74 72 25 21 38 3d 69 63 |.~.menup|tr%!8=ic|
|000015f0| 6f 6e 66 6c 61 67 73 25 | 0d 09 88 22 e7 20 a9 28 |onflags%|...". .(|
|00001600| 74 65 78 74 24 29 3e 31 | 31 20 69 6e 64 6c 65 6e |text$)>1|1 indlen|
|00001610| 25 3d a9 28 74 65 78 74 | 24 29 0d 09 92 11 e7 20 |%=.(text|$)..... |
|00001620| 69 6e 64 6c 65 6e 25 3c | 30 20 8c 0d 09 9c 18 24 |indlen%<|0 .....$|
|00001630| 28 6d 65 6e 75 70 74 72 | 25 2b 31 32 29 3d 74 65 |(menuptr|%+12)=te|
|00001640| 78 74 24 0d 09 a6 05 cc | 0d 09 b0 28 6d 65 6e 75 |xt$.....|...(menu|
|00001650| 70 74 72 25 21 38 3d 28 | 6d 65 6e 75 70 74 72 25 |ptr%!8=(|menuptr%|
|00001660| 21 38 29 20 84 20 25 31 | 30 30 30 30 30 30 30 30 |!8) . %1|00000000|
|00001670| 0d 09 ba 16 6d 65 6e 75 | 70 74 72 25 21 31 32 3d |....menu|ptr%!12=|
|00001680| 69 5f 70 74 72 25 0d 09 | c4 16 6d 65 6e 75 70 74 |i_ptr%..|..menupt|
|00001690| 72 25 21 31 36 3d 76 61 | 6c 69 64 25 0d 09 ce 17 |r%!16=va|lid%....|
|000016a0| 6d 65 6e 75 70 74 72 25 | 21 32 30 3d 69 6e 64 6c |menuptr%|!20=indl|
|000016b0| 65 6e 25 0d 09 d8 44 e7 | 20 69 5f 70 74 72 25 2b |en%...D.| i_ptr%+|
|000016c0| 69 6e 64 6c 65 6e 25 2b | 31 3e 69 5f 65 6e 64 25 |indlen%+|1>i_end%|
|000016d0| 20 8c 20 85 20 32 35 35 | 2c 22 4e 6f 20 72 6f 6f | . . 255|,"No roo|
|000016e0| 6d 20 66 6f 72 20 4d 45 | 4e 55 20 69 6e 64 69 72 |m for ME|NU indir|
|000016f0| 65 63 74 69 6f 6e 22 0d | 09 e2 11 24 69 5f 70 74 |ection".|...$i_pt|
|00001700| 72 25 3d 74 65 78 74 24 | 0d 09 ec 15 69 5f 70 74 |r%=text$|....i_pt|
|00001710| 72 25 2b 3d 69 6e 64 6c | 65 6e 25 2b 31 0d 09 f6 |r%+=indl|en%+1...|
|00001720| 05 cd 0d 0a 00 10 6d 65 | 6e 75 70 74 72 25 2b 3d |......me|nuptr%+=|
|00001730| 32 34 0d 0a 0a 05 e1 0d | 0a 14 05 3a 0d 0a 1e 20 |24......|...:... |
|00001740| dd 20 f2 73 65 74 6d 65 | 6e 73 74 72 28 6d 65 6e |. .setme|nstr(men|
|00001750| 75 25 2c 69 74 65 6d 25 | 2c 73 24 29 0d 0a 28 21 |u%,item%|,s$)..(!|
|00001760| 24 28 21 28 6d 65 6e 75 | 25 2b 32 38 2b 32 34 2a |$(!(menu|%+28+24*|
|00001770| 69 74 65 6d 25 2b 31 32 | 29 29 3d 73 24 0d 0a 32 |item%+12|))=s$..2|
|00001780| 05 e1 0d 0a 3c 05 3a 0d | 0a 46 1a dd 20 a4 6d 65 |....<.:.|.F.. .me|
|00001790| 6e 73 74 72 28 6d 65 6e | 75 25 2c 69 74 65 6d 25 |nstr(men|u%,item%|
|000017a0| 29 0d 0a 50 25 3d a4 67 | 65 74 73 74 72 28 21 28 |)..P%=.g|etstr(!(|
|000017b0| 6d 65 6e 75 25 2b 32 38 | 2b 32 34 2a 69 74 65 6d |menu%+28|+24*item|
|000017c0| 25 2b 31 32 29 29 0d 0a | 5a 05 3a 0d 0a 64 22 dd |%+12))..|Z.:..d".|
|000017d0| 20 a4 6d 61 6b 65 6d 65 | 6e 28 24 62 6c 6f 63 6b | .makeme|n($block|
|000017e0| 25 2c 6d 65 6e 75 74 69 | 74 6c 65 24 29 0d 0a 6e |%,menuti|tle$)..n|
|000017f0| 21 3d a4 6d 61 6b 65 6d | 65 6e 32 28 62 6c 6f 63 |!=.makem|en2(bloc|
|00001800| 6b 25 2c 6d 65 6e 75 74 | 69 74 6c 65 24 29 0d 0a |k%,menut|itle$)..|
|00001810| 78 05 3a 0d 0a 82 23 dd | 20 a4 6d 61 6b 65 6d 65 |x.:...#.| .makeme|
|00001820| 6e 32 28 6d 65 6e 64 61 | 74 25 2c 6d 65 6e 75 74 |n2(menda|t%,menut|
|00001830| 69 74 6c 65 24 29 0d 0a | 8c 16 ea 20 6d 65 6e 75 |itle$)..|... menu|
|00001840| 6d 61 78 25 2c 77 61 73 | 70 74 72 25 0d 0a 96 14 |max%,was|ptr%....|
|00001850| 77 61 73 70 74 72 25 3d | 6d 65 6e 75 70 74 72 25 |wasptr%=|menuptr%|
|00001860| 0d 0a a0 0f 6d 65 6e 75 | 6d 61 78 25 3d 31 30 0d |....menu|max%=10.|
|00001870| 0a aa 08 69 25 3d 30 0d | 0a b4 12 6d 65 6e 75 70 |...i%=0.|...menup|
|00001880| 74 72 25 21 32 30 3d 34 | 30 0d 0a be 18 24 6d 65 |tr%!20=4|0....$me|
|00001890| 6e 75 70 74 72 25 3d 6d | 65 6e 75 74 69 74 6c 65 |nuptr%=m|enutitle|
|000018a0| 24 0d 0a c8 11 6d 65 6e | 75 70 74 72 25 3f 31 32 |$....men|uptr%?12|
|000018b0| 3d 37 0d 0a d2 11 6d 65 | 6e 75 70 74 72 25 3f 31 |=7....me|nuptr%?1|
|000018c0| 33 3d 32 0d 0a dc 11 6d | 65 6e 75 70 74 72 25 3f |3=2....m|enuptr%?|
|000018d0| 31 34 3d 37 0d 0a e6 11 | 6d 65 6e 75 70 74 72 25 |14=7....|menuptr%|
|000018e0| 3f 31 35 3d 30 0d 0a f0 | 18 6d 61 78 61 64 64 72 |?15=0...|.maxaddr|
|000018f0| 25 3d 6d 65 6e 75 70 74 | 72 25 2b 31 36 0d 0a fa |%=menupt|r%+16...|
|00001900| 11 6d 65 6e 75 70 74 72 | 25 21 32 34 3d 30 0d 0b |.menuptr|%!24=0..|
|00001910| 04 10 6d 65 6e 75 70 74 | 72 25 2b 3d 32 38 0d 0b |..menupt|r%+=28..|
|00001920| 0e 05 f5 0d 0b 18 0c 69 | 31 25 3d 69 25 2b 31 0d |.......i|1%=i%+1.|
|00001930| 0b 22 0c 69 74 65 6d 24 | 3d 22 22 0d 0b 2c 28 c8 |.".item$|=""..,(.|
|00001940| 95 20 69 25 3f 6d 65 6e | 64 61 74 25 3c 3e 97 22 |. i%?men|dat%<>."|
|00001950| 2c 22 20 80 20 69 25 3f | 6d 65 6e 64 61 74 25 3e |," . i%?|mendat%>|
|00001960| 3d 33 32 0d 0b 36 18 69 | 74 65 6d 24 2b 3d bd 28 |=32..6.i|tem$+=.(|
|00001970| 69 25 3f 6d 65 6e 64 61 | 74 25 29 0d 0b 40 09 69 |i%?menda|t%)..@.i|
|00001980| 25 2b 3d 31 0d 0b 4a 05 | ce 0d 0b 54 1b e7 20 69 |%+=1..J.|...T.. i|
|00001990| 25 3f 6d 65 6e 64 61 74 | 25 3d 97 22 2c 22 20 69 |%?mendat|%=."," i|
|000019a0| 25 2b 3d 31 0d 0b 5e 14 | f2 6d 65 6e 75 69 74 65 |%+=1..^.|.menuite|
|000019b0| 6d 28 69 74 65 6d 24 29 | 0d 0b 68 13 fd 20 69 25 |m(item$)|..h.. i%|
|000019c0| 3f 6d 65 6e 64 61 74 25 | 3c 33 32 0d 0b 72 25 6d |?mendat%|<32..r%m|
|000019d0| 65 6e 75 70 74 72 25 21 | 2d 32 34 3d 28 6d 65 6e |enuptr%!|-24=(men|
|000019e0| 75 70 74 72 25 21 2d 32 | 34 29 20 84 20 26 38 30 |uptr%!-2|4) . &80|
|000019f0| 0d 0b 7c 1c 21 6d 61 78 | 61 64 64 72 25 3d 6d 65 |..|.!max|addr%=me|
|00001a00| 6e 75 6d 61 78 25 2a 31 | 36 2b 33 32 0d 0b 86 0c |numax%*1|6+32....|
|00001a10| 3d 77 61 73 70 74 72 25 | 0d 0b 90 05 3a 0d 0b 9a |=wasptr%|....:...|
|00001a20| 33 dd 20 f2 61 73 73 65 | 6d 62 6c 65 5f 6d 65 6e |3. .asse|mble_men|
|00001a30| 75 28 64 65 73 74 25 2c | 64 65 73 74 65 6e 64 25 |u(dest%,|destend%|
|00001a40| 2c 73 6f 75 72 63 65 25 | 2c 74 69 74 6c 65 24 29 |,source%|,title$)|
|00001a50| 0d 0b a4 11 ea 20 61 25 | 2c 62 25 2c 6a 75 6e 6b |..... a%|,b%,junk|
|00001a60| 25 0d 0b ae 0f 61 25 3d | 6d 65 6e 75 70 74 72 25 |%....a%=|menuptr%|
|00001a70| 0d 0b b8 0e 62 25 3d 6d | 65 6e 65 6e 64 25 0d 0b |....b%=m|enend%..|
|00001a80| c2 12 6d 65 6e 75 70 74 | 72 25 3d 64 65 73 74 25 |..menupt|r%=dest%|
|00001a90| 0d 0b cc 14 6d 65 6e 65 | 6e 64 25 3d 64 65 73 74 |....mene|nd%=dest|
|00001aa0| 65 6e 64 25 0d 0b d6 23 | 6a 75 6e 6b 25 3d a4 6d |end%...#|junk%=.m|
|00001ab0| 61 6b 65 6d 65 6e 32 28 | 73 6f 75 72 63 65 25 2c |akemen2(|source%,|
|00001ac0| 74 69 74 6c 65 24 29 0d | 0b e0 0f 6d 65 6e 75 70 |title$).|...menup|
|00001ad0| 74 72 25 3d 61 25 0d 0b | ea 0e 6d 65 6e 65 6e 64 |tr%=a%..|..menend|
|00001ae0| 25 3d 62 25 0d 0b f4 05 | e1 0d 0b fe 05 3a 0d 0c |%=b%....|.....:..|
|00001af0| 08 1a dd 20 f2 6f 70 65 | 6e 5f 6d 65 6e 75 28 6d |... .ope|n_menu(m|
|00001b00| 25 2c 78 25 2c 79 25 29 | 0d 0c 12 0f 4d 65 6e 75 |%,x%,y%)|....Menu|
|00001b10| 42 4c 4b 25 3d 6d 25 0d | 0c 1c 0d 4d 65 6e 75 58 |BLK%=m%.|...MenuX|
|00001b20| 25 3d 78 25 0d 0c 26 0d | 4d 65 6e 75 59 25 3d 79 |%=x%..&.|MenuY%=y|
|00001b30| 25 0d 0c 30 22 c8 99 20 | 22 57 69 6d 70 5f 43 72 |%..0".. |"Wimp_Cr|
|00001b40| 65 61 74 65 4d 65 6e 75 | 22 2c 2c 6d 25 2c 78 25 |eateMenu|",,m%,x%|
|00001b50| 2c 79 25 0d 0c 3a 05 e1 | 0d 0c 44 05 3a 0d 0c 4e |,y%..:..|..D.:..N|
|00001b60| 18 dd 2d 20 4d 65 6e 75 | 20 70 72 6f 63 65 64 75 |..- Menu| procedu|
|00001b70| 72 65 73 20 e0 0d 0c 58 | 05 3a 0d 0c 62 13 dd 20 |res ...X|.:..b.. |
|00001b80| f2 63 72 65 61 74 65 5f | 6d 65 6e 75 73 0d 0c 6c |.create_|menus..l|
|00001b90| 15 c8 99 20 22 48 6f 75 | 72 67 6c 61 73 73 5f 4f |... "Hou|rglass_O|
|00001ba0| 6e 22 0d 0c 76 17 6d 65 | 6e 75 70 74 72 25 3d 6d |n"..v.me|nuptr%=m|
|00001bb0| 65 6e 75 62 6c 6f 63 6b | 25 0d 0c 80 25 6d 65 6e |enublock|%...%men|
|00001bc0| 65 6e 64 25 3d 6d 65 6e | 75 62 6c 6f 63 6b 25 2b |end%=men|ublock%+|
|00001bd0| 6d 65 6e 75 62 6c 6f 63 | 6b 73 69 7a 65 25 0d 0c |menubloc|ksize%..|
|00001be0| 8a 12 69 5f 70 74 72 25 | 3d 6d 69 5f 70 74 72 25 |..i_ptr%|=mi_ptr%|
|00001bf0| 0d 0c 94 0a f2 66 6f 6e | 74 73 0d 0c 9e 54 49 63 |.....fon|ts...TIc|
|00001c00| 6f 6e 4d 25 3d a4 6d 61 | 6b 65 6d 65 6e 28 a4 73 |onM%=.ma|kemen(.s|
|00001c10| 75 62 28 22 49 6e 66 6f | 22 2c 69 6e 66 6f 57 25 |ub("Info|",infoW%|
|00001c20| 29 2b 22 2c 53 61 76 65 | 20 73 65 74 75 70 2c 51 |)+",Save| setup,Q|
|00001c30| 75 69 74 22 2c 22 50 72 | 69 6e 74 4c 62 6c 73 22 |uit","Pr|intLbls"|
|00001c40| 29 3a 49 5f 65 6e 74 72 | 69 65 73 25 3d 33 0d 0c |):I_entr|ies%=3..|
|00001c50| a8 88 68 69 67 68 66 6f | 6e 74 4d 25 3d a4 6d 61 |..highfo|ntM%=.ma|
|00001c60| 6b 65 6d 65 6e 28 a4 73 | 75 62 28 22 4e 61 6d 65 |kemen(.s|ub("Name|
|00001c70| 22 2c 66 6f 6e 74 4d 25 | 29 2b 22 2c 22 2b a4 73 |",fontM%|)+","+.s|
|00001c80| 75 62 28 22 41 64 64 72 | 65 73 73 22 2c 66 6f 6e |ub("Addr|ess",fon|
|00001c90| 74 4d 25 29 2b 22 2c 7c | 62 72 6b 22 2b a4 73 75 |tM%)+",||brk"+.su|
|00001ca0| 62 28 22 4c 61 73 74 20 | 6c 69 6e 65 22 2c 66 6f |b("Last |line",fo|
|00001cb0| 6e 74 4d 25 29 2b 22 2c | 52 65 76 69 73 65 20 66 |ntM%)+",|Revise f|
|00001cc0| 6f 6e 74 20 6c 69 73 74 | 22 2c 22 46 6f 6e 74 20 |ont list|","Font |
|00001cd0| 66 6f 72 3a 22 29 0d 0c | b2 47 6d 61 69 6e 4d 25 |for:")..|.GmainM%|
|00001ce0| 3d a4 6d 61 6b 65 6d 65 | 6e 28 a4 73 75 62 28 22 |=.makeme|n(.sub("|
|00001cf0| 46 6f 6e 74 73 22 2c 68 | 69 67 68 66 6f 6e 74 4d |Fonts",h|ighfontM|
|00001d00| 25 29 2b 22 2c 52 65 6d | 6f 76 65 20 43 53 56 22 |%)+",Rem|ove CSV"|
|00001d10| 2c 22 50 72 69 6e 74 4c | 62 6c 73 22 29 0d 0c bc |,"PrintL|bls")...|
|00001d20| 16 c8 99 20 22 48 6f 75 | 72 67 6c 61 73 73 5f 4f |... "Hou|rglass_O|
|00001d30| 66 66 22 0d 0c c6 05 e1 | 0d 0c d0 05 3a 0d 0c da |ff".....|....:...|
|00001d40| 1c dd 20 f2 6d 6f 75 73 | 65 28 78 25 2c 79 25 2c |.. .mous|e(x%,y%,|
|00001d50| 62 25 2c 77 25 2c 69 25 | 29 0d 0c e4 31 e7 20 62 |b%,w%,i%|)...1. b|
|00001d60| 25 3c 3e 32 20 80 20 62 | 25 3c 38 20 8c 20 c8 99 |%<>2 . b|%<8 . ..|
|00001d70| 20 22 57 69 6d 70 5f 42 | 6f 72 64 65 72 49 63 6f | "Wimp_B|orderIco|
|00001d80| 6e 22 2c 2c 62 6c 6f 63 | 6b 25 0d 0c ee 0b c8 8e |n",,bloc|k%......|
|00001d90| 20 77 25 20 ca 0d 0c f8 | 22 c9 20 2d 32 3a 20 f2 | w% ....|". -2: .|
|00001da0| 69 63 6f 6e 62 61 72 5f | 63 6c 69 63 6b 28 78 25 |iconbar_|click(x%|
|00001db0| 2c 79 25 2c 62 25 29 0d | 0d 02 34 c9 20 77 69 6e |,y%,b%).|..4. win|
|00001dc0| 64 6f 77 25 28 6d 61 69 | 6e 57 25 2c 31 29 3a 20 |dow%(mai|nW%,1): |
|00001dd0| f2 6d 61 69 6e 5f 63 6c | 69 63 6b 28 78 25 2c 79 |.main_cl|ick(x%,y|
|00001de0| 25 2c 62 25 2c 77 25 2c | 69 25 29 0d 0d 0c 2d c9 |%,b%,w%,|i%)...-.|
|00001df0| 20 77 69 6e 64 6f 77 25 | 28 65 72 72 6f 72 57 25 | window%|(errorW%|
|00001e00| 2c 31 29 3a 20 f2 65 72 | 72 6f 72 5f 63 6c 69 63 |,1): .er|ror_clic|
|00001e10| 6b 28 77 25 2c 69 25 29 | 0d 0d 16 05 cb 0d 0d 20 |k(w%,i%)|....... |
|00001e20| 25 e7 20 a4 69 6e 64 65 | 78 28 77 25 2c a3 29 3e |%. .inde|x(w%,.)>|
|00001e30| 30 20 80 20 62 25 3c 3e | 32 20 80 20 62 25 3c 38 |0 . b%<>|2 . b%<8|
|00001e40| 20 8c 0d 0d 2a 0f 62 6c | 6f 63 6b 25 21 30 3d 78 | ...*.bl|ock%!0=x|
|00001e50| 25 0d 0d 34 0f 62 6c 6f | 63 6b 25 21 34 3d 79 25 |%..4.blo|ck%!4=y%|
|00001e60| 0d 0d 3e 0e 62 6c 6f 63 | 6b 25 21 38 3d 30 0d 0d |..>.bloc|k%!8=0..|
|00001e70| 48 10 62 6c 6f 63 6b 25 | 21 31 32 3d 77 25 0d 0d |H.block%|!12=w%..|
|00001e80| 52 10 62 6c 6f 63 6b 25 | 21 31 36 3d 69 25 0d 0d |R.block%|!16=i%..|
|00001e90| 5c 20 c8 99 20 22 57 69 | 6d 70 5f 42 6f 72 64 65 |\ .. "Wi|mp_Borde|
|00001ea0| 72 49 63 6f 6e 22 2c 2c | 62 6c 6f 63 6b 25 0d 0d |rIcon",,|block%..|
|00001eb0| 66 05 cd 0d 0d 70 05 e1 | 0d 0d 7a 05 3a 0d 0d 84 |f....p..|..z.:...|
|00001ec0| 1e dd 20 f2 69 63 6f 6e | 62 61 72 5f 63 6c 69 63 |.. .icon|bar_clic|
|00001ed0| 6b 28 78 25 2c 79 25 2c | 62 25 29 0d 0d 8e 0b c8 |k(x%,y%,|b%).....|
|00001ee0| 8e 20 62 25 20 ca 0d 0d | 98 1d c9 20 34 3a 20 f2 |. b% ...|... 4: .|
|00001ef0| 6f 70 65 6e 5f 77 69 6e | 64 6f 77 28 6d 61 69 6e |open_win|dow(main|
|00001f00| 57 25 29 0d 0d a2 32 c9 | 20 32 3a 20 f2 6f 70 65 |W%)...2.| 2: .ope|
|00001f10| 6e 5f 6d 65 6e 75 28 49 | 63 6f 6e 4d 25 2c 78 25 |n_menu(I|conM%,x%|
|00001f20| 2d 36 34 2c 39 36 2b 34 | 30 2a 49 5f 65 6e 74 72 |-64,96+4|0*I_entr|
|00001f30| 69 65 73 25 29 0d 0d ac | 05 cb 0d 0d b6 05 e1 0d |ies%)...|........|
|00001f40| 0d c0 05 3a 0d 0d ca 19 | dd 20 f2 65 72 72 6f 72 |...:....|. .error|
|00001f50| 5f 63 6c 69 63 6b 28 77 | 25 2c 69 25 29 0d 0d d4 |_click(w|%,i%)...|
|00001f60| 17 c8 97 20 c8 93 20 30 | 2c 30 2c 31 32 38 30 2c |... .. 0|,0,1280,|
|00001f70| 31 30 32 34 0d 0d de 0c | e7 20 69 25 3d 33 20 8c |1024....|. i%=3 .|
|00001f80| 0d 0d e8 0e f2 73 68 75 | 74 5f 64 6f 77 6e 0d 0d |.....shu|t_down..|
|00001f90| f2 05 e0 0d 0d fc 05 cd | 0d 0e 06 1a f2 63 6c 6f |........|.....clo|
|00001fa0| 73 65 5f 77 69 6e 64 6f | 77 28 65 72 72 6f 72 57 |se_windo|w(errorW|
|00001fb0| 25 29 0d 0e 10 0c 65 72 | 77 6f 6b 25 3d b9 0d 0e |%)....er|wok%=...|
|00001fc0| 1a 05 e1 0d 0e 24 05 3a | 0d 0e 2e 12 dd 20 f2 6d |.....$.:|..... .m|
|00001fd0| 65 6e 75 5f 63 68 6f 69 | 63 65 0d 0e 38 0d ea 20 |enu_choi|ce..8.. |
|00001fe0| 61 64 6a 75 73 74 25 0d | 0e 42 3a c8 99 20 22 57 |adjust%.|.B:.. "W|
|00001ff0| 69 6d 70 5f 44 65 63 6f | 64 65 4d 65 6e 75 22 2c |imp_Deco|deMenu",|
|00002000| 2c 4d 65 6e 75 42 4c 4b | 25 2c 62 6c 6f 63 6b 25 |,MenuBLK|%,block%|
|00002010| 2c 62 6c 6f 63 6b 25 2b | 26 31 30 30 2c 26 31 30 |,block%+|&100,&10|
|00002020| 30 0d 0e 4c 20 63 68 6f | 69 63 65 24 3d a4 67 65 |0..L cho|ice$=.ge|
|00002030| 74 73 74 72 28 62 6c 6f | 63 6b 25 2b 26 31 30 30 |tstr(blo|ck%+&100|
|00002040| 29 0d 0e 56 24 c8 99 20 | 22 57 69 6d 70 5f 47 65 |)..V$.. |"Wimp_Ge|
|00002050| 74 50 6f 69 6e 74 65 72 | 49 6e 66 6f 22 2c 2c 62 |tPointer|Info",,b|
|00002060| 6c 6f 63 6b 25 0d 0e 60 | 1a 61 64 6a 75 73 74 25 |lock%..`|.adjust%|
|00002070| 3d 28 62 6c 6f 63 6b 25 | 21 38 29 20 80 20 31 0d |=(block%|!8) . 1.|
|00002080| 0e 6a 11 c8 8e 20 4d 65 | 6e 75 42 4c 4b 25 20 ca |.j... Me|nuBLK% .|
|00002090| 0d 0e 74 20 c9 20 49 63 | 6f 6e 4d 25 3a f2 69 63 |..t . Ic|onM%:.ic|
|000020a0| 6f 6e 5f 6d 65 6e 75 28 | 63 68 6f 69 63 65 24 29 |on_menu(|choice$)|
|000020b0| 0d 0e 7e 20 c9 20 6d 61 | 69 6e 4d 25 3a f2 6d 61 |..~ . ma|inM%:.ma|
|000020c0| 69 6e 5f 6d 65 6e 75 28 | 63 68 6f 69 63 65 24 29 |in_menu(|choice$)|
|000020d0| 0d 0e 88 05 cb 0d 0e 92 | 32 e7 20 61 64 6a 75 73 |........|2. adjus|
|000020e0| 74 25 20 8c 20 f2 6f 70 | 65 6e 5f 6d 65 6e 75 28 |t% . .op|en_menu(|
|000020f0| 4d 65 6e 75 42 4c 4b 25 | 2c 4d 65 6e 75 58 25 2c |MenuBLK%|,MenuX%,|
|00002100| 4d 65 6e 75 59 25 29 0d | 0e 9c 05 e1 0d 0e a6 05 |MenuY%).|........|
|00002110| 3a 0d 0e b0 11 dd 20 a4 | 67 65 74 73 74 72 28 70 |:..... .|getstr(p|
|00002120| 25 29 0d 0e ba 08 ea 20 | 70 24 0d 0e c4 09 70 24 |%)..... |p$....p$|
|00002130| 3d 22 22 0d 0e ce 0d c8 | 95 20 3f 70 25 3e 33 31 |="".....|. ?p%>31|
|00002140| 0d 0e d8 0c 70 24 2b 3d | bd 3f 70 25 0d 0e e2 09 |....p$+=|.?p%....|
|00002150| 70 25 2b 3d 31 0d 0e ec | 05 ce 0d 0e f6 07 3d 70 |p%+=1...|......=p|
|00002160| 24 0d 0f 00 05 3a 0d 0f | 0a 19 dd 20 f2 69 63 6f |$....:..|... .ico|
|00002170| 6e 5f 6d 65 6e 75 28 63 | 68 6f 69 63 65 24 29 0d |n_menu(c|hoice$).|
|00002180| 0f 14 10 c8 8e 20 63 68 | 6f 69 63 65 24 20 ca 0d |..... ch|oice$ ..|
|00002190| 0f 1e 15 c9 20 22 51 75 | 69 74 22 3a 20 71 75 69 |.... "Qu|it": qui|
|000021a0| 74 25 3d b9 0d 0f 28 1f | c9 20 22 53 61 76 65 20 |t%=...(.|. "Save |
|000021b0| 73 65 74 75 70 22 3a 20 | f2 73 61 76 65 5f 73 65 |setup": |.save_se|
|000021c0| 74 75 70 0d 0f 32 05 cb | 0d 0f 3c 05 e1 0d 0f 46 |tup..2..|..<....F|
|000021d0| 05 3a 0d 0f 50 13 dd 20 | f2 6c 6f 61 64 5f 77 69 |.:..P.. |.load_wi|
|000021e0| 6e 64 6f 77 73 0d 0f 5a | 0e 77 69 6e 64 6f 77 73 |ndows..Z|.windows|
|000021f0| 25 3d 33 0d 0f 64 19 de | 20 77 69 6e 64 6f 77 25 |%=3..d..| window%|
|00002200| 28 77 69 6e 64 6f 77 73 | 25 2c 32 29 0d 0f 6e 10 |(windows|%,2)..n.|
|00002210| 77 69 6e 64 6f 77 25 28 | 29 3d 2d 31 0d 0f 78 1f |window%(|)=-1..x.|
|00002220| 69 6e 66 6f 57 25 3d 31 | 3a 6d 61 69 6e 57 25 3d |infoW%=1|:mainW%=|
|00002230| 32 3a 65 72 72 6f 72 57 | 25 3d 33 0d 0f 82 37 c8 |2:errorW|%=3...7.|
|00002240| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 54 65 6d 70 |. "Wimp_|OpenTemp|
|00002250| 6c 61 74 65 22 2c 2c 22 | 3c 50 72 69 6e 74 4c 62 |late",,"|<PrintLb|
|00002260| 6c 73 24 44 69 72 3e 2e | 54 65 6d 70 6c 61 74 65 |ls$Dir>.|Template|
|00002270| 73 22 0d 0f 8c 34 f4 20 | 73 70 61 63 65 20 66 6f |s"...4. |space fo|
|00002280| 72 20 77 69 6e 64 6f 77 | 20 64 65 66 2e 20 3d 20 |r window| def. = |
|00002290| 38 38 20 2b 20 33 32 20 | 2a 20 6e 6f 2e 20 6f 66 |88 + 32 |* no. of|
|000022a0| 20 69 63 6f 6e 73 0d 0f | 96 18 de 20 70 72 6f 67 | icons..|... prog|
|000022b0| 69 6e 66 6f 53 25 20 38 | 38 2b 33 32 2a 38 0d 0f |infoS% 8|8+32*8..|
|000022c0| a0 4d c8 99 20 22 57 69 | 6d 70 5f 4c 6f 61 64 54 |.M.. "Wi|mp_LoadT|
|000022d0| 65 6d 70 6c 61 74 65 22 | 2c 2c 70 72 6f 67 69 6e |emplate"|,,progin|
|000022e0| 66 6f 53 25 2c 69 5f 70 | 74 72 25 2c 69 5f 65 6e |foS%,i_p|tr%,i_en|
|000022f0| 64 25 2c 2d 31 2c 22 70 | 72 6f 67 49 6e 66 6f 22 |d%,-1,"p|rogInfo"|
|00002300| 20 b8 20 2c 2c 69 5f 70 | 74 72 25 0d 0f aa 20 77 | . ,,i_p|tr%... w|
|00002310| 69 6e 64 6f 77 25 28 69 | 6e 66 6f 57 25 2c 32 29 |indow%(i|nfoW%,2)|
|00002320| 3d 70 72 6f 67 69 6e 66 | 6f 53 25 0d 0f b4 15 de |=proginf|oS%.....|
|00002330| 20 6d 61 69 6e 53 25 20 | 38 38 2b 33 32 2a 31 39 | mainS% |88+32*19|
|00002340| 0d 0f be 45 c8 99 20 22 | 57 69 6d 70 5f 4c 6f 61 |...E.. "|Wimp_Loa|
|00002350| 64 54 65 6d 70 6c 61 74 | 65 22 2c 2c 6d 61 69 6e |dTemplat|e",,main|
|00002360| 53 25 2c 69 5f 70 74 72 | 25 2c 69 5f 65 6e 64 25 |S%,i_ptr|%,i_end%|
|00002370| 2c 2d 31 2c 22 6d 61 69 | 6e 22 20 b8 20 2c 2c 69 |,-1,"mai|n" . ,,i|
|00002380| 5f 70 74 72 25 0d 0f c8 | 1c 77 69 6e 64 6f 77 25 |_ptr%...|.window%|
|00002390| 28 6d 61 69 6e 57 25 2c | 32 29 3d 6d 61 69 6e 53 |(mainW%,|2)=mainS|
|000023a0| 25 0d 0f d2 1d 6d 61 69 | 6e 53 25 21 36 34 3d 70 |%....mai|nS%!64=p|
|000023b0| 72 69 76 61 74 65 73 70 | 72 69 74 65 73 25 0d 0f |rivatesp|rites%..|
|000023c0| dc 15 de 20 65 72 72 6f | 72 53 25 20 38 38 2b 33 |... erro|rS% 88+3|
|000023d0| 32 2a 35 0d 0f e6 47 c8 | 99 20 22 57 69 6d 70 5f |2*5...G.|. "Wimp_|
|000023e0| 4c 6f 61 64 54 65 6d 70 | 6c 61 74 65 22 2c 2c 65 |LoadTemp|late",,e|
|000023f0| 72 72 6f 72 53 25 2c 69 | 5f 70 74 72 25 2c 69 5f |rrorS%,i|_ptr%,i_|
|00002400| 65 6e 64 25 2c 2d 31 2c | 22 65 72 72 6f 72 22 20 |end%,-1,|"error" |
|00002410| b8 20 2c 2c 69 5f 70 74 | 72 25 0d 0f f0 1e 77 69 |. ,,i_pt|r%....wi|
|00002420| 6e 64 6f 77 25 28 65 72 | 72 6f 72 57 25 2c 32 29 |ndow%(er|rorW%,2)|
|00002430| 3d 65 72 72 6f 72 53 25 | 0d 0f fa 1b c8 99 20 22 |=errorS%|...... "|
|00002440| 57 69 6d 70 5f 43 6c 6f | 73 65 54 65 6d 70 6c 61 |Wimp_Clo|seTempla|
|00002450| 74 65 22 0d 10 04 05 e1 | 0d 10 0e 05 3a 0d 10 18 |te".....|....:...|
|00002460| 1b dd 20 f2 63 6c 6f 73 | 65 5f 77 69 6e 64 6f 77 |.. .clos|e_window|
|00002470| 28 69 6e 64 65 78 25 29 | 0d 10 22 13 ea 20 6c 6f |(index%)|..".. lo|
|00002480| 6f 70 25 2c 68 61 6e 64 | 6c 65 25 0d 10 2c 18 e7 |op%,hand|le%..,..|
|00002490| 20 69 6e 64 65 78 25 3c | 3d 77 69 6e 64 6f 77 73 | index%<|=windows|
|000024a0| 25 20 8c 0d 10 36 1e e7 | 20 77 69 6e 64 6f 77 25 |% ...6..| window%|
|000024b0| 28 69 6e 64 65 78 25 2c | 31 29 3d 2d 31 20 8c 20 |(index%,|1)=-1 . |
|000024c0| e1 0d 10 40 1d 68 61 6e | 64 6c 65 25 3d 77 69 6e |...@.han|dle%=win|
|000024d0| 64 6f 77 25 28 69 6e 64 | 65 78 25 2c 31 29 0d 10 |dow%(ind|ex%,1)..|
|000024e0| 4a 05 cc 0d 10 54 12 68 | 61 6e 64 6c 65 25 3d 69 |J....T.h|andle%=i|
|000024f0| 6e 64 65 78 25 0d 10 5e | 05 cd 0d 10 68 13 21 62 |ndex%..^|....h.!b|
|00002500| 6c 6f 63 6b 25 3d 68 61 | 6e 64 6c 65 25 0d 10 72 |lock%=ha|ndle%..r|
|00002510| 21 c8 99 20 22 57 69 6d | 70 5f 43 6c 6f 73 65 57 |!.. "Wim|p_CloseW|
|00002520| 69 6e 64 6f 77 22 2c 2c | 62 6c 6f 63 6b 25 0d 10 |indow",,|block%..|
|00002530| 7c 18 e3 20 6c 6f 6f 70 | 25 3d 31 20 b8 20 77 69 ||.. loop|%=1 . wi|
|00002540| 6e 64 6f 77 73 25 0d 10 | 86 20 e7 20 77 69 6e 64 |ndows%..|. . wind|
|00002550| 6f 77 25 28 6c 6f 6f 70 | 25 2c 31 29 3d 68 61 6e |ow%(loop|%,1)=han|
|00002560| 64 6c 65 25 20 8c 0d 10 | 90 19 f2 77 69 6e 64 6f |dle% ...|...windo|
|00002570| 77 5f 64 65 6c 65 74 65 | 28 6c 6f 6f 70 25 29 0d |w_delete|(loop%).|
|00002580| 10 9a 13 21 62 6c 6f 63 | 6b 25 3d 68 61 6e 64 6c |...!bloc|k%=handl|
|00002590| 65 25 0d 10 a4 22 c8 99 | 20 22 57 69 6d 70 5f 44 |e%..."..| "Wimp_D|
|000025a0| 65 6c 65 74 65 57 69 6e | 64 6f 77 22 2c 2c 62 6c |eleteWin|dow",,bl|
|000025b0| 6f 63 6b 25 0d 10 ae 17 | 77 69 6e 64 6f 77 25 28 |ock%....|window%(|
|000025c0| 6c 6f 6f 70 25 2c 31 29 | 3d 2d 31 0d 10 b8 12 6c |loop%,1)|=-1....l|
|000025d0| 6f 6f 70 25 3d 77 69 6e | 64 6f 77 73 25 0d 10 c2 |oop%=win|dows%...|
|000025e0| 05 cd 0d 10 cc 05 ed 0d | 10 d6 05 e1 0d 10 e0 05 |........|........|
|000025f0| 3a 0d 10 ea 1a dd 20 f2 | 6f 70 65 6e 5f 77 69 6e |:..... .|open_win|
|00002600| 64 6f 77 28 69 6e 64 65 | 78 25 29 0d 10 f4 0d ea |dow(inde|x%).....|
|00002610| 20 68 61 6e 64 6c 65 25 | 0d 10 fe 18 e7 20 69 6e | handle%|..... in|
|00002620| 64 65 78 25 3c 3d 77 69 | 6e 64 6f 77 73 25 20 8c |dex%<=wi|ndows% .|
|00002630| 0d 11 08 1c e7 20 77 69 | 6e 64 6f 77 25 28 69 6e |..... wi|ndow%(in|
|00002640| 64 65 78 25 2c 31 29 3d | 2d 31 20 8c 0d 11 12 41 |dex%,1)=|-1 ....A|
|00002650| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 57 |.. "Wimp|_CreateW|
|00002660| 69 6e 64 6f 77 22 2c 2c | 77 69 6e 64 6f 77 25 28 |indow",,|window%(|
|00002670| 69 6e 64 65 78 25 2c 32 | 29 20 b8 20 77 69 6e 64 |index%,2|) . wind|
|00002680| 6f 77 25 28 69 6e 64 65 | 78 25 2c 31 29 0d 11 1c |ow%(inde|x%,1)...|
|00002690| 1a f2 77 69 6e 64 6f 77 | 5f 63 72 65 61 74 65 28 |..window|_create(|
|000026a0| 69 6e 64 65 78 25 29 0d | 11 26 05 cd 0d 11 30 1d |index%).|.&....0.|
|000026b0| 68 61 6e 64 6c 65 25 3d | 77 69 6e 64 6f 77 25 28 |handle%=|window%(|
|000026c0| 69 6e 64 65 78 25 2c 31 | 29 0d 11 3a 05 cc 0d 11 |index%,1|)..:....|
|000026d0| 44 12 68 61 6e 64 6c 65 | 25 3d 69 6e 64 65 78 25 |D.handle|%=index%|
|000026e0| 0d 11 4e 05 cd 0d 11 58 | 13 21 62 6c 6f 63 6b 25 |..N....X|.!block%|
|000026f0| 3d 68 61 6e 64 6c 65 25 | 0d 11 62 24 c8 99 20 22 |=handle%|..b$.. "|
|00002700| 57 69 6d 70 5f 47 65 74 | 57 69 6e 64 6f 77 53 74 |Wimp_Get|WindowSt|
|00002710| 61 74 65 22 2c 2c 62 6c | 6f 63 6b 25 0d 11 6c 10 |ate",,bl|ock%..l.|
|00002720| 62 6c 6f 63 6b 25 21 32 | 38 3d 2d 31 0d 11 76 20 |block%!2|8=-1..v |
|00002730| c8 99 20 22 57 69 6d 70 | 5f 4f 70 65 6e 57 69 6e |.. "Wimp|_OpenWin|
|00002740| 64 6f 77 22 2c 2c 62 6c | 6f 63 6b 25 0d 11 80 05 |dow",,bl|ock%....|
|00002750| e1 0d 11 8a 05 3a 0d 11 | 94 17 dd 20 f2 72 65 64 |.....:..|... .red|
|00002760| 72 61 77 77 28 68 61 6e | 64 6c 65 25 29 0d 11 9e |raww(han|dle%)...|
|00002770| 0c ea 20 69 6e 64 65 78 | 25 0d 11 a8 1c 69 6e 64 |.. index|%....ind|
|00002780| 65 78 25 3d a4 69 6e 64 | 65 78 28 68 61 6e 64 6c |ex%=.ind|ex(handl|
|00002790| 65 25 2c a3 29 0d 11 b2 | 13 21 62 6c 6f 63 6b 25 |e%,.)...|.!block%|
|000027a0| 3d 68 61 6e 64 6c 65 25 | 0d 11 bc 2a c8 99 20 22 |=handle%|...*.. "|
|000027b0| 57 69 6d 70 5f 52 65 64 | 72 61 77 57 69 6e 64 6f |Wimp_Red|rawWindo|
|000027c0| 77 22 2c 2c 62 6c 6f 63 | 6b 25 20 b8 20 6d 6f 72 |w",,bloc|k% . mor|
|000027d0| 65 25 0d 11 c6 0c c8 95 | 20 6d 6f 72 65 25 0d 11 |e%......| more%..|
|000027e0| d0 22 c8 99 20 22 57 69 | 6d 70 5f 42 6f 72 64 65 |.".. "Wi|mp_Borde|
|000027f0| 72 57 69 6e 64 6f 77 22 | 2c 2c 62 6c 6f 63 6b 25 |rWindow"|,,block%|
|00002800| 0d 11 da 0f c8 8e 20 69 | 6e 64 65 78 25 20 ca 0d |...... i|ndex% ..|
|00002810| 11 e4 05 cb 0d 11 ee 2a | c8 99 20 22 57 69 6d 70 |.......*|.. "Wimp|
|00002820| 5f 47 65 74 52 65 63 74 | 61 6e 67 6c 65 22 2c 2c |_GetRect|angle",,|
|00002830| 62 6c 6f 63 6b 25 20 b8 | 20 6d 6f 72 65 25 0d 11 |block% .| more%..|
|00002840| f8 05 ce 0d 12 02 05 e1 | 0d 12 0c 05 3a 0d 12 16 |........|....:...|
|00002850| 1c dd 20 a4 69 6e 64 65 | 78 28 68 61 6e 64 6c 65 |.. .inde|x(handle|
|00002860| 25 2c 65 72 72 6f 72 25 | 29 0d 12 20 12 ea 20 69 |%,error%|).. .. i|
|00002870| 6e 64 65 78 25 2c 6c 6f | 6f 70 25 0d 12 2a 0c 69 |ndex%,lo|op%..*.i|
|00002880| 6e 64 65 78 25 3d 30 0d | 12 34 18 e3 20 6c 6f 6f |ndex%=0.|.4.. loo|
|00002890| 70 25 3d 31 20 b8 20 77 | 69 6e 64 6f 77 73 25 0d |p%=1 . w|indows%.|
|000028a0| 12 3e 20 e7 20 77 69 6e | 64 6f 77 25 28 6c 6f 6f |.> . win|dow%(loo|
|000028b0| 70 25 2c 31 29 3d 68 61 | 6e 64 6c 65 25 20 8c 0d |p%,1)=ha|ndle% ..|
|000028c0| 12 48 10 69 6e 64 65 78 | 25 3d 6c 6f 6f 70 25 0d |.H.index|%=loop%.|
|000028d0| 12 52 12 6c 6f 6f 70 25 | 3d 77 69 6e 64 6f 77 73 |.R.loop%|=windows|
|000028e0| 25 0d 12 5c 05 cd 0d 12 | 66 05 ed 0d 12 70 10 e7 |%..\....|f....p..|
|000028f0| 20 69 6e 64 65 78 25 3d | 30 20 8c 0d 12 7a 0e e7 | index%=|0 ...z..|
|00002900| 20 65 72 72 6f 72 25 20 | 8c 0d 12 84 22 85 20 32 | error% |....". 2|
|00002910| 35 35 2c 22 57 69 6e 64 | 6f 77 20 69 6e 64 65 78 |55,"Wind|ow index|
|00002920| 20 6e 6f 74 20 66 6f 75 | 6e 64 22 0d 12 8e 05 cd | not fou|nd".....|
|00002930| 0d 12 98 05 cd 0d 12 a2 | 0b 3d 69 6e 64 65 78 25 |........|.=index%|
|00002940| 0d 12 ac 05 3a 0d 12 b6 | 1c dd 20 f2 77 69 6e 64 |....:...|.. .wind|
|00002950| 6f 77 5f 63 72 65 61 74 | 65 28 69 6e 64 65 78 25 |ow_creat|e(index%|
|00002960| 29 0d 12 c0 10 ea 20 66 | 25 2c 68 61 6e 64 6c 65 |)..... f|%,handle|
|00002970| 25 0d 12 ca 1d 68 61 6e | 64 6c 65 25 3d 77 69 6e |%....han|dle%=win|
|00002980| 64 6f 77 25 28 69 6e 64 | 65 78 25 2c 31 29 0d 12 |dow%(ind|ex%,1)..|
|00002990| d4 0f c8 8e 20 69 6e 64 | 65 78 25 20 ca 0d 12 de |.... ind|ex% ....|
|000029a0| 0d c9 20 6d 61 69 6e 57 | 25 3a 0d 12 e8 0e e3 20 |.. mainW|%:..... |
|000029b0| 66 25 3d 31 20 b8 20 33 | 0d 12 f2 11 f2 67 65 74 |f%=1 . 3|.....get|
|000029c0| 5f 66 6f 6e 74 28 66 25 | 29 0d 12 fc 05 ed 0d 13 |_font(f%|).......|
|000029d0| 06 28 24 a4 69 63 6f 6e | 74 65 78 74 61 64 64 72 |.($.icon|textaddr|
|000029e0| 28 68 61 6e 64 6c 65 25 | 2c 32 29 3d 69 6e 70 75 |(handle%|,2)=inpu|
|000029f0| 74 66 69 6c 65 24 0d 13 | 10 41 e7 20 69 6e 70 75 |tfile$..|.A. inpu|
|00002a00| 74 66 69 6c 65 24 3d 22 | ab 20 4e 6f 6e 65 20 bb |tfile$="|. None .|
|00002a10| 22 20 8c 20 f2 63 65 6e | 74 72 65 28 68 61 6e 64 |" . .cen|tre(hand|
|00002a20| 6c 65 25 2c 32 29 20 8b | 20 f2 72 6a 28 68 61 6e |le%,2) .| .rj(han|
|00002a30| 64 6c 65 25 2c 32 29 0d | 13 1a 0c f2 70 64 72 69 |dle%,2).|....pdri|
|00002a40| 76 65 72 0d 13 24 27 24 | a4 69 63 6f 6e 74 65 78 |ver..$'$|.icontex|
|00002a50| 74 61 64 64 72 28 68 61 | 6e 64 6c 65 25 2c 31 33 |taddr(ha|ndle%,13|
|00002a60| 29 3d 70 64 72 69 76 65 | 72 24 0d 13 2e 24 24 a4 |)=pdrive|r$...$$.|
|00002a70| 69 63 6f 6e 74 65 78 74 | 61 64 64 72 28 68 61 6e |icontext|addr(han|
|00002a80| 64 6c 65 25 2c 31 34 29 | 3d 70 72 65 73 24 0d 13 |dle%,14)|=pres$..|
|00002a90| 38 2e 24 a4 69 63 6f 6e | 74 65 78 74 61 64 64 72 |8.$.icon|textaddr|
|00002aa0| 28 68 61 6e 64 6c 65 25 | 2c 31 37 29 3d c3 6e 61 |(handle%|,17)=.na|
|00002ab0| 6d 65 73 69 7a 65 25 2b | 22 70 74 22 0d 13 42 2e |mesize%+|"pt"..B.|
|00002ac0| 24 a4 69 63 6f 6e 74 65 | 78 74 61 64 64 72 28 68 |$.iconte|xtaddr(h|
|00002ad0| 61 6e 64 6c 65 25 2c 31 | 38 29 3d c3 61 64 64 72 |andle%,1|8)=.addr|
|00002ae0| 73 69 7a 65 25 2b 22 70 | 74 22 0d 13 4c 22 f2 6c |size%+"p|t"..L".l|
|00002af0| 69 67 68 74 69 63 6f 6e | 28 68 61 6e 64 6c 65 25 |ighticon|(handle%|
|00002b00| 2c 39 2c 70 64 72 69 76 | 65 72 25 29 0d 13 56 18 |,9,pdriv|er%)..V.|
|00002b10| f2 75 70 64 61 74 65 5f | 66 6f 6e 74 63 6f 6e 74 |.update_|fontcont|
|00002b20| 72 6f 6c 73 0d 13 60 05 | cb 0d 13 6a 05 e1 0d 13 |rols..`.|...j....|
|00002b30| 74 05 3a 0d 13 7e 1c dd | 20 f2 77 69 6e 64 6f 77 |t.:..~..| .window|
|00002b40| 5f 64 65 6c 65 74 65 28 | 69 6e 64 65 78 25 29 0d |_delete(|index%).|
|00002b50| 13 88 0f c8 8e 20 69 6e | 64 65 78 25 20 ca 0d 13 |..... in|dex% ...|
|00002b60| 92 19 c9 20 6d 61 69 6e | 57 25 3a 20 f2 6c 6f 73 |... main|W%: .los|
|00002b70| 65 5f 66 6f 6e 74 73 0d | 13 9c 05 cb 0d 13 a6 05 |e_fonts.|........|
|00002b80| e1 0d 13 b0 05 3a 0d 13 | ba 10 dd 20 f2 69 6e 69 |.....:..|... .ini|
|00002b90| 74 5f 76 61 72 73 0d 13 | c4 19 69 6e 70 75 74 66 |t_vars..|..inputf|
|00002ba0| 69 6c 65 24 3d 22 ab 20 | 4e 6f 6e 65 20 bb 22 0d |ile$=". |None .".|
|00002bb0| 13 ce 0c 65 72 77 6f 6b | 25 3d a3 0d 13 d8 19 de |...erwok|%=......|
|00002bc0| 20 66 6f 6e 74 24 28 33 | 29 2c 66 6f 6e 74 25 28 | font$(3|),font%(|
|00002bd0| 33 2c 31 29 0d 13 e2 0f | 6d 61 78 61 64 64 72 73 |3,1)....|maxaddrs|
|00002be0| 25 3d 36 0d 13 ec 2a de | 20 61 64 64 72 24 28 6d |%=6...*.| addr$(m|
|00002bf0| 61 78 61 64 64 72 73 25 | 2c 31 30 29 2c 6c 61 73 |axaddrs%|,10),las|
|00002c00| 74 25 28 6d 61 78 61 64 | 64 72 73 25 29 0d 13 f6 |t%(maxad|drs%)...|
|00002c10| 0f 61 70 70 74 72 61 6e | 73 25 3d a3 0d 14 00 10 |.apptran|s%=.....|
|00002c20| 6e 61 6d 65 73 69 7a 65 | 25 3d 32 34 0d 14 0a 10 |namesize|%=24....|
|00002c30| 61 64 64 72 73 69 7a 65 | 25 3d 31 32 0d 14 14 05 |addrsize|%=12....|
|00002c40| e1 0d 14 1e 05 3a 0d 14 | 28 1c dd 20 a4 69 63 6f |.....:..|(.. .ico|
|00002c50| 6e 74 65 78 74 61 64 64 | 72 28 77 69 25 2c 69 63 |ntextadd|r(wi%,ic|
|00002c60| 25 29 0d 14 32 08 ea 20 | 71 25 0d 14 3c 12 71 25 |%)..2.. |q%..<.q%|
|00002c70| 3d 62 6c 6f 63 6b 25 2b | 26 31 30 30 0d 14 46 15 |=block%+|&100..F.|
|00002c80| 71 25 21 30 3d 77 69 25 | 3a 71 25 21 34 3d 69 63 |q%!0=wi%|:q%!4=ic|
|00002c90| 25 0d 14 50 1e c8 99 20 | 22 57 69 6d 70 5f 47 65 |%..P... |"Wimp_Ge|
|00002ca0| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 71 25 0d |tIconSta|te",,q%.|
|00002cb0| 14 5a 0a 3d 71 25 21 32 | 38 0d 14 64 05 3a 0d 14 |.Z.=q%!2|8..d.:..|
|00002cc0| 6e 22 dd 2d 20 48 65 61 | 70 20 6d 6f 64 75 6c 65 |n".- Hea|p module|
|00002cd0| 20 69 6e 74 65 72 66 61 | 63 65 20 42 45 47 49 4e | interfa|ce BEGIN|
|00002ce0| 0d 14 78 05 3a 0d 14 82 | 28 f4 20 72 65 71 75 69 |..x.:...|(. requi|
|00002cf0| 72 65 73 20 53 6c 69 64 | 69 6e 67 48 65 61 70 20 |res Slid|ingHeap |
|00002d00| 31 2e 30 32 20 6f 72 20 | 61 62 6f 76 65 0d 14 8c |1.02 or |above...|
|00002d10| 05 3a 0d 14 96 16 f4 20 | 6d 6f 64 75 6c 65 20 61 |.:..... |module a|
|00002d20| 6e 64 20 50 52 4f 43 73 | 0d 14 a0 1a f4 20 a9 20 |nd PROCs|..... . |
|00002d30| 53 74 65 76 65 6e 20 48 | 61 73 6c 61 6d 20 31 39 |Steven H|aslam 19|
|00002d40| 39 31 0d 14 aa 05 3a 0d | 14 b4 0f dd 20 a4 73 6c |91....:.|.... .sl|
|00002d50| 6f 74 73 69 7a 65 0d 14 | be 09 ea 20 52 30 25 0d |otsize..|... R0%.|
|00002d60| 14 c8 22 c8 99 20 22 57 | 69 6d 70 5f 53 6c 6f 74 |..".. "W|imp_Slot|
|00002d70| 53 69 7a 65 22 2c 2d 31 | 2c 2d 31 20 b8 20 52 30 |Size",-1|,-1 . R0|
|00002d80| 25 0d 14 d2 08 3d 52 30 | 25 0d 14 dc 05 3a 0d 14 |%....=R0|%....:..|
|00002d90| e6 0f dd 20 f2 68 65 61 | 70 69 6e 66 6f 0d 14 f0 |... .hea|pinfo...|
|00002da0| 1f c8 99 20 22 53 6c 69 | 64 69 6e 67 48 65 61 70 |... "Sli|dingHeap|
|00002db0| 5f 48 65 61 70 49 6e 66 | 6f 22 2c 93 0d 14 fa 05 |_HeapInf|o",.....|
|00002dc0| e1 0d 15 04 05 3a 0d 15 | 0e 0f dd 20 f2 69 6e 69 |.....:..|... .ini|
|00002dd0| 74 68 65 61 70 0d 15 18 | 0e ea 20 74 72 79 73 69 |theap...|.. trysi|
|00002de0| 7a 65 25 0d 15 22 18 74 | 72 79 73 69 7a 65 25 3d |ze%..".t|rysize%=|
|00002df0| a4 73 6c 6f 74 73 69 7a | 65 2b 38 0d 15 2c 1a f2 |.slotsiz|e+8..,..|
|00002e00| 73 65 74 73 6c 6f 74 73 | 69 7a 65 28 74 72 79 73 |setslots|ize(trys|
|00002e10| 69 7a 65 25 29 0d 15 36 | 3c e7 20 a4 73 6c 6f 74 |ize%)..6|<. .slot|
|00002e20| 73 69 7a 65 3c 74 72 79 | 73 69 7a 65 25 20 8c 20 |size<try|size% . |
|00002e30| 85 20 31 33 30 2c 22 55 | 6e 61 62 6c 65 20 74 6f |. 130,"U|nable to|
|00002e40| 20 69 6e 69 74 69 61 6c | 69 73 65 20 68 65 61 70 | initial|ise heap|
|00002e50| 22 0d 15 40 1d c8 99 20 | 22 53 6c 69 64 69 6e 67 |"..@... |"Sliding|
|00002e60| 48 65 61 70 5f 43 72 65 | 61 74 65 22 2c 93 0d 15 |Heap_Cre|ate",...|
|00002e70| 4a 05 e1 0d 15 54 05 3a | 0d 15 5e 0f dd 20 a4 6e |J....T.:|..^.. .n|
|00002e80| 65 78 74 66 72 65 65 0d | 15 68 0f ea 20 6e 65 78 |extfree.|.h.. nex|
|00002e90| 74 66 72 65 65 25 0d 15 | 72 2b c8 99 20 22 53 6c |tfree%..|r+.. "Sl|
|00002ea0| 69 64 69 6e 67 48 65 61 | 70 5f 4e 65 78 74 46 72 |idingHea|p_NextFr|
|00002eb0| 65 65 22 2c 93 20 b8 20 | 6e 65 78 74 66 72 65 65 |ee",. . |nextfree|
|00002ec0| 25 0d 15 7c 0e 3d 6e 65 | 78 74 66 72 65 65 25 0d |%..|.=ne|xtfree%.|
|00002ed0| 15 86 05 3a 0d 15 90 12 | dd 20 f2 64 65 73 74 72 |...:....|. .destr|
|00002ee0| 6f 79 68 65 61 70 0d 15 | 9a 19 f2 73 65 74 73 6c |oyheap..|...setsl|
|00002ef0| 6f 74 73 69 7a 65 28 93 | 2d 26 38 30 30 30 29 0d |otsize(.|-&8000).|
|00002f00| 15 a4 05 e1 0d 15 ae 05 | 3a 0d 15 b8 1e dd 20 a4 |........|:..... .|
|00002f10| 77 6f 72 64 75 70 28 78 | 25 29 3d 28 78 25 2b 33 |wordup(x|%)=(x%+3|
|00002f20| 29 20 80 20 ac 20 33 0d | 15 c2 05 3a 0d 15 cc 1f |) . . 3.|...:....|
|00002f30| dd 20 f2 6e 65 77 5f 62 | 6c 6f 63 6b 28 61 6e 63 |. .new_b|lock(anc|
|00002f40| 68 6f 72 25 2c 73 69 7a | 65 25 29 0d 15 d6 0e ea |hor%,siz|e%).....|
|00002f50| 20 74 72 79 73 69 7a 65 | 25 0d 15 e0 18 73 69 7a | trysize|%....siz|
|00002f60| 65 25 3d a4 77 6f 72 64 | 75 70 28 73 69 7a 65 25 |e%=.word|up(size%|
|00002f70| 29 0d 15 ea 24 74 72 79 | 73 69 7a 65 25 3d a4 6e |)...$try|size%=.n|
|00002f80| 65 78 74 66 72 65 65 2b | 73 69 7a 65 25 2b 38 2d |extfree+|size%+8-|
|00002f90| 26 38 30 30 30 0d 15 f4 | 1a f2 73 65 74 73 6c 6f |&8000...|..setslo|
|00002fa0| 74 73 69 7a 65 28 74 72 | 79 73 69 7a 65 25 29 0d |tsize(tr|ysize%).|
|00002fb0| 15 fe 1a e7 20 a4 73 6c | 6f 74 73 69 7a 65 3c 74 |.... .sl|otsize<t|
|00002fc0| 72 79 73 69 7a 65 25 20 | 8c 0d 16 08 21 f2 73 65 |rysize% |....!.se|
|00002fd0| 74 73 6c 6f 74 73 69 7a | 65 28 a4 6e 65 78 74 66 |tslotsiz|e(.nextf|
|00002fe0| 72 65 65 2d 26 38 30 30 | 30 29 0d 16 12 37 85 20 |ree-&800|0)...7. |
|00002ff0| 31 33 31 2c 22 4e 6f 74 | 20 65 6e 6f 75 67 68 20 |131,"Not| enough |
|00003000| 72 6f 6f 6d 20 74 6f 20 | 63 72 65 61 74 65 20 62 |room to |create b|
|00003010| 6c 6f 63 6b 20 23 22 2b | c3 7e 61 6e 63 68 6f 72 |lock #"+|.~anchor|
|00003020| 25 0d 16 1c 05 cd 0d 16 | 26 2d c8 99 20 22 53 6c |%.......|&-.. "Sl|
|00003030| 69 64 69 6e 67 48 65 61 | 70 5f 4e 65 77 42 6c 6f |idingHea|p_NewBlo|
|00003040| 63 6b 22 2c 93 2c 61 6e | 63 68 6f 72 25 2c 73 69 |ck",.,an|chor%,si|
|00003050| 7a 65 25 0d 16 30 05 e1 | 0d 16 3a 05 3a 0d 16 44 |ze%..0..|..:.:..D|
|00003060| 1a dd 20 f2 73 63 72 61 | 70 62 6c 6f 63 6b 28 61 |.. .scra|pblock(a|
|00003070| 6e 63 68 6f 72 25 29 0d | 16 4e 26 e7 20 61 6e 63 |nchor%).|.N&. anc|
|00003080| 68 6f 72 25 3e 93 20 8c | 20 61 6e 63 68 6f 72 25 |hor%>. .| anchor%|
|00003090| 3d 21 28 61 6e 63 68 6f | 72 25 2d 34 29 0d 16 58 |=!(ancho|r%-4)..X|
|000030a0| 3b e7 20 21 61 6e 63 68 | 6f 72 25 3e a4 6e 65 78 |;. !anch|or%>.nex|
|000030b0| 74 66 72 65 65 20 8c 20 | 85 20 31 32 39 2c 22 42 |tfree . |. 129,"B|
|000030c0| 6c 6f 63 6b 20 62 65 79 | 6f 6e 64 20 68 65 61 70 |lock bey|ond heap|
|000030d0| 20 6c 69 6d 69 74 73 22 | 0d 16 62 28 c8 99 20 22 | limits"|..b(.. "|
|000030e0| 53 6c 69 64 69 6e 67 48 | 65 61 70 5f 53 63 72 61 |SlidingH|eap_Scra|
|000030f0| 70 42 6c 6f 63 6b 22 2c | 2c 61 6e 63 68 6f 72 25 |pBlock",|,anchor%|
|00003100| 0d 16 6c 21 f2 73 65 74 | 73 6c 6f 74 73 69 7a 65 |..l!.set|slotsize|
|00003110| 28 a4 6e 65 78 74 66 72 | 65 65 2d 26 38 30 30 30 |(.nextfr|ee-&8000|
|00003120| 29 0d 16 76 0e 21 61 6e | 63 68 6f 72 25 3d 30 0d |)..v.!an|chor%=0.|
|00003130| 16 80 05 e1 0d 16 8a 05 | 3a 0d 16 94 1c dd 20 f2 |........|:..... .|
|00003140| 73 65 74 73 6c 6f 74 73 | 69 7a 65 28 6e 65 77 73 |setslots|ize(news|
|00003150| 69 7a 65 25 29 0d 16 9e | 22 c8 99 20 22 57 69 6d |ize%)...|".. "Wim|
|00003160| 70 5f 53 6c 6f 74 53 69 | 7a 65 22 2c 6e 65 77 73 |p_SlotSi|ze",news|
|00003170| 69 7a 65 25 2c 2d 31 0d | 16 a8 05 e1 0d 16 b2 05 |ize%,-1.|........|
|00003180| 3a 0d 16 bc 24 dd 20 f2 | 65 78 74 65 6e 64 62 6c |:...$. .|extendbl|
|00003190| 6f 63 6b 28 61 6e 63 68 | 6f 72 25 2c 6e 65 77 73 |ock(anch|or%,news|
|000031a0| 69 7a 65 25 29 0d 16 c6 | 26 e7 20 61 6e 63 68 6f |ize%)...|&. ancho|
|000031b0| 72 25 3e 93 20 8c 20 61 | 6e 63 68 6f 72 25 3d 21 |r%>. . a|nchor%=!|
|000031c0| 28 61 6e 63 68 6f 72 25 | 2d 34 29 0d 16 d0 3b e7 |(anchor%|-4)...;.|
|000031d0| 20 21 61 6e 63 68 6f 72 | 25 3e a4 6e 65 78 74 66 | !anchor|%>.nextf|
|000031e0| 72 65 65 20 8c 20 85 20 | 31 32 39 2c 22 42 6c 6f |ree . . |129,"Blo|
|000031f0| 63 6b 20 62 65 79 6f 6e | 64 20 68 65 61 70 20 6c |ck beyon|d heap l|
|00003200| 69 6d 69 74 73 22 0d 16 | da 1a 6f 6c 64 73 69 7a |imits"..|..oldsiz|
|00003210| 65 25 3d 21 28 21 61 6e | 63 68 6f 72 25 2d 38 29 |e%=!(!an|chor%-8)|
|00003220| 0d 16 e4 1d 6c 61 72 67 | 65 72 25 3d 6e 65 77 73 |....larg|er%=news|
|00003230| 69 7a 65 25 3e 6f 6c 64 | 73 69 7a 65 25 0d 16 ee |ize%>old|size%...|
|00003240| 0f e7 20 6c 61 72 67 65 | 72 25 20 8c 0d 16 f8 30 |.. large|r% ....0|
|00003250| 74 72 79 73 69 7a 65 25 | 3d a4 6e 65 78 74 66 72 |trysize%|=.nextfr|
|00003260| 65 65 2b 28 6e 65 77 73 | 69 7a 65 25 2d 6f 6c 64 |ee+(news|ize%-old|
|00003270| 73 69 7a 65 25 29 2d 26 | 38 30 30 30 0d 17 02 1a |size%)-&|8000....|
|00003280| f2 73 65 74 73 6c 6f 74 | 73 69 7a 65 28 74 72 79 |.setslot|size(try|
|00003290| 73 69 7a 65 25 29 0d 17 | 0c 1a e7 20 a4 73 6c 6f |size%)..|... .slo|
|000032a0| 74 73 69 7a 65 3c 74 72 | 79 73 69 7a 65 25 20 8c |tsize<tr|ysize% .|
|000032b0| 0d 17 16 21 f2 73 65 74 | 73 6c 6f 74 73 69 7a 65 |...!.set|slotsize|
|000032c0| 28 a4 6e 65 78 74 66 72 | 65 65 2d 26 38 30 30 30 |(.nextfr|ee-&8000|
|000032d0| 29 0d 17 20 37 85 20 31 | 33 32 2c 22 4e 6f 74 20 |).. 7. 1|32,"Not |
|000032e0| 65 6e 6f 75 67 68 20 72 | 6f 6f 6d 20 74 6f 20 65 |enough r|oom to e|
|000032f0| 78 74 65 6e 64 20 62 6c | 6f 63 6b 20 23 22 2b c3 |xtend bl|ock #"+.|
|00003300| 7e 61 6e 63 68 6f 72 25 | 0d 17 2a 05 cd 0d 17 34 |~anchor%|..*....4|
|00003310| 05 cd 0d 17 3e 32 c8 99 | 20 22 53 6c 69 64 69 6e |....>2..| "Slidin|
|00003320| 67 48 65 61 70 5f 45 78 | 74 65 6e 64 42 6c 6f 63 |gHeap_Ex|tendBloc|
|00003330| 6b 22 2c 2c 61 6e 63 68 | 6f 72 25 2c 6e 65 77 73 |k",,anch|or%,news|
|00003340| 69 7a 65 25 0d 17 48 21 | f2 73 65 74 73 6c 6f 74 |ize%..H!|.setslot|
|00003350| 73 69 7a 65 28 a4 6e 65 | 78 74 66 72 65 65 2d 26 |size(.ne|xtfree-&|
|00003360| 38 30 30 30 29 0d 17 52 | 05 e1 0d 17 5c 05 3a 0d |8000)..R|....\.:.|
|00003370| 17 66 1e dd 2d 20 48 65 | 61 70 20 6d 6f 64 75 6c |.f..- He|ap modul|
|00003380| 65 20 69 6e 74 65 72 66 | 61 63 65 20 e0 0d 17 70 |e interf|ace ...p|
|00003390| 05 3a 0d 17 7a 16 dd 20 | f2 6c 6f 61 64 43 53 56 |.:..z.. |.loadCSV|
|000033a0| 28 66 6e 61 6d 65 24 29 | 0d 17 84 15 c8 99 20 22 |(fname$)|...... "|
|000033b0| 48 6f 75 72 67 6c 61 73 | 73 5f 4f 6e 22 0d 17 8e |Hourglas|s_On"...|
|000033c0| 1e e7 20 69 6e 70 75 74 | 66 69 6c 65 24 3c 3e 22 |.. input|file$<>"|
|000033d0| ab 20 4e 6f 6e 65 20 bb | 22 20 8c 0d 17 98 1c f2 |. None .|" ......|
|000033e0| 73 63 72 61 70 62 6c 6f | 63 6b 28 66 69 6c 65 61 |scrapblo|ck(filea|
|000033f0| 6e 63 68 6f 72 25 29 0d | 17 a2 05 cd 0d 17 ac 2a |nchor%).|.......*|
|00003400| c8 99 20 22 4f 53 5f 46 | 69 6c 65 22 2c 35 2c 66 |.. "OS_F|ile",5,f|
|00003410| 6e 61 6d 65 24 20 b8 20 | 2c 2c 2c 2c 43 53 56 6c |name$ . |,,,,CSVl|
|00003420| 65 6e 67 74 68 25 0d 17 | b6 26 f2 6e 65 77 5f 62 |ength%..|.&.new_b|
|00003430| 6c 6f 63 6b 28 66 69 6c | 65 61 6e 63 68 6f 72 25 |lock(fil|eanchor%|
|00003440| 2c 43 53 56 6c 65 6e 67 | 74 68 25 29 0d 17 c0 28 |,CSVleng|th%)...(|
|00003450| c8 99 20 22 4f 53 5f 46 | 69 6c 65 22 2c 32 35 35 |.. "OS_F|ile",255|
|00003460| 2c 66 6e 61 6d 65 24 2c | 21 66 69 6c 65 61 6e 63 |,fname$,|!fileanc|
|00003470| 68 6f 72 25 0d 17 ca 15 | 69 6e 70 75 74 66 69 6c |hor%....|inputfil|
|00003480| 65 24 3d 66 6e 61 6d 65 | 24 0d 17 d4 32 24 a4 69 |e$=fname|$...2$.i|
|00003490| 63 6f 6e 74 65 78 74 61 | 64 64 72 28 77 69 6e 64 |contexta|ddr(wind|
|000034a0| 6f 77 25 28 6d 61 69 6e | 57 25 2c 31 29 2c 32 29 |ow%(main|W%,1),2)|
|000034b0| 3d 69 6e 70 75 74 66 69 | 6c 65 24 0d 17 de 1c f2 |=inputfi|le$.....|
|000034c0| 72 6a 28 77 69 6e 64 6f | 77 25 28 6d 61 69 6e 57 |rj(windo|w%(mainW|
|000034d0| 25 2c 31 29 2c 32 29 0d | 17 e8 1d f2 63 68 65 63 |%,1),2).|....chec|
|000034e0| 6b 6e 65 77 66 69 6c 65 | 28 43 53 56 6c 65 6e 67 |knewfile|(CSVleng|
|000034f0| 74 68 25 29 0d 17 f2 16 | c8 99 20 22 48 6f 75 72 |th%)....|.. "Hour|
|00003500| 67 6c 61 73 73 5f 4f 66 | 66 22 0d 17 fc 05 e1 0d |glass_Of|f"......|
|00003510| 18 06 05 3a 0d 18 10 11 | dd 20 f2 73 65 74 75 70 |...:....|. .setup|
|00003520| 5f 68 65 61 70 0d 18 1a | 0d f2 69 6e 69 74 68 65 |_heap...|..inithe|
|00003530| 61 70 0d 18 24 28 de 20 | 73 70 72 69 74 65 73 61 |ap..$(. |spritesa|
|00003540| 6e 63 68 6f 72 25 20 33 | 3a 21 73 70 72 69 74 65 |nchor% 3|:!sprite|
|00003550| 73 61 6e 63 68 6f 72 25 | 3d 30 0d 18 2e 22 de 20 |sanchor%|=0...". |
|00003560| 66 69 6c 65 61 6e 63 68 | 6f 72 25 20 33 3a 21 66 |fileanch|or% 3:!f|
|00003570| 69 6c 65 61 6e 63 68 6f | 72 25 3d 30 0d 18 38 2a |ileancho|r%=0..8*|
|00003580| de 20 66 6f 6e 74 6d 65 | 6e 75 61 6e 63 68 6f 72 |. fontme|nuanchor|
|00003590| 25 20 33 3a 21 66 6f 6e | 74 6d 65 6e 75 61 6e 63 |% 3:!fon|tmenuanc|
|000035a0| 68 6f 72 25 3d 30 0d 18 | 42 22 de 20 74 65 6d 70 |hor%=0..|B". temp|
|000035b0| 61 6e 63 68 6f 72 25 20 | 33 3a 21 74 65 6d 70 61 |anchor% |3:!tempa|
|000035c0| 6e 63 68 6f 72 25 3d 30 | 0d 18 4c 05 e1 0d 18 56 |nchor%=0|..L....V|
|000035d0| 05 3a 0d 18 60 18 dd 20 | f2 72 65 64 72 61 77 69 |.:..`.. |.redrawi|
|000035e0| 63 6f 6e 28 77 25 2c 69 | 25 29 0d 18 6a 08 ea 20 |con(w%,i|%)..j.. |
|000035f0| 71 25 0d 18 74 12 71 25 | 3d 62 6c 6f 63 6b 25 2b |q%..t.q%|=block%+|
|00003600| 26 31 30 30 0d 18 7e 0a | 21 71 25 3d 77 25 0d 18 |&100..~.|!q%=w%..|
|00003610| 88 0b 71 25 21 34 3d 69 | 25 0d 18 92 0a 71 25 21 |..q%!4=i|%....q%!|
|00003620| 38 3d 30 0d 18 9c 0b 71 | 25 21 31 32 3d 30 0d 18 |8=0....q|%!12=0..|
|00003630| a6 1e c8 99 20 22 57 69 | 6d 70 5f 53 65 74 49 63 |.... "Wi|mp_SetIc|
|00003640| 6f 6e 53 74 61 74 65 22 | 2c 2c 71 25 0d 18 b0 05 |onState"|,,q%....|
|00003650| e1 0d 18 ba 05 3a 0d 18 | c4 21 dd 20 f2 6d 61 69 |.....:..|.!. .mai|
|00003660| 6e 5f 63 6c 69 63 6b 28 | 78 25 2c 79 25 2c 62 25 |n_click(|x%,y%,b%|
|00003670| 2c 77 25 2c 69 25 29 0d | 18 ce 0b c8 8e 20 62 25 |,w%,i%).|..... b%|
|00003680| 20 ca 0d 18 d8 24 c9 20 | 32 3a 20 f2 6f 70 65 6e | ....$. |2: .open|
|00003690| 5f 6d 65 6e 75 28 6d 61 | 69 6e 4d 25 2c 78 25 2d |_menu(ma|inM%,x%-|
|000036a0| 36 34 2c 79 25 29 0d 18 | e2 08 c9 20 34 3a 0d 18 |64,y%)..|... 4:..|
|000036b0| ec 0b c8 8e 20 69 25 20 | ca 0d 18 f6 53 c9 20 33 |.... i% |....S. 3|
|000036c0| 3a 20 f2 77 69 6d 70 79 | 5f 65 72 72 6f 72 28 30 |: .wimpy|_error(0|
|000036d0| 2c 22 44 72 61 67 20 61 | 20 43 53 56 20 66 69 6c |,"Drag a| CSV fil|
|000036e0| 65 2c 20 74 79 70 65 20 | 26 46 46 46 2c 20 6f 6e |e, type |&FFF, on|
|000036f0| 74 6f 20 74 68 69 73 20 | 69 63 6f 6e 20 74 6f 20 |to this |icon to |
|00003700| 6c 6f 61 64 20 69 74 2e | 22 2c a3 29 0d 19 00 08 |load it.|",.)....|
|00003710| c9 20 39 3a 0d 19 0a 1d | e7 20 69 6e 70 75 74 66 |. 9:....|. inputf|
|00003720| 69 6c 65 24 3d 22 ab 20 | 4e 6f 6e 65 20 bb 22 20 |ile$=". |None ." |
|00003730| 8c 0d 19 14 4c f2 77 69 | 6d 70 79 5f 65 72 72 6f |....L.wi|mpy_erro|
|00003740| 72 28 30 2c 22 59 6f 75 | 20 6d 75 73 74 20 68 61 |r(0,"You| must ha|
|00003750| 76 65 20 6c 6f 61 64 65 | 64 20 69 6e 20 61 20 66 |ve loade|d in a f|
|00003760| 69 6c 65 20 69 6e 20 6f | 72 64 65 72 20 74 6f 20 |ile in o|rder to |
|00003770| 70 72 69 6e 74 20 69 74 | 21 22 2c a3 29 0d 19 1e |print it|!",.)...|
|00003780| 05 cc 0d 19 28 0a f2 70 | 72 69 6e 74 0d 19 32 05 |....(..p|rint..2.|
|00003790| cd 0d 19 3c 09 c9 20 31 | 30 3a 0d 19 46 11 f2 63 |...<.. 1|0:..F..c|
|000037a0| 72 65 61 74 65 5f 6d 65 | 6e 75 73 0d 19 50 05 cb |reate_me|nus..P..|
|000037b0| 0d 19 5a 05 cb 0d 19 64 | 05 e1 0d 19 6e 05 3a 0d |..Z....d|....n.:.|
|000037c0| 19 78 15 dd 20 f2 73 65 | 74 75 70 5f 66 6f 6e 74 |.x.. .se|tup_font|
|000037d0| 70 61 74 68 0d 19 82 08 | ea 20 66 25 0d 19 8c 2e |path....|. f%....|
|000037e0| c8 99 20 22 46 6f 6e 74 | 5f 4c 69 73 74 46 6f 6e |.. "Font|_ListFon|
|000037f0| 74 73 22 2c 2c 62 6c 6f | 63 6b 25 2c 2c 2d 31 20 |ts",,blo|ck%,,-1 |
|00003800| b8 20 2c 2c 66 6f 6e 74 | 73 25 0d 19 96 11 e7 20 |. ,,font|s%..... |
|00003810| 66 6f 6e 74 73 25 3d 2d | 31 20 8c 0d 19 a0 29 2a |fonts%=-|1 ....)*|
|00003820| 53 65 74 4d 61 63 72 6f | 20 46 6f 6e 74 24 50 72 |SetMacro| Font$Pr|
|00003830| 65 66 69 78 20 3c 50 72 | 69 6e 74 4c 62 6c 73 24 |efix <Pr|intLbls$|
|00003840| 44 69 72 3e 0d 19 aa 26 | 2a 53 65 74 4d 61 63 72 |Dir>...&|*SetMacr|
|00003850| 6f 20 46 6f 6e 74 24 50 | 61 74 68 20 3c 46 6f 6e |o Font$P|ath <Fon|
|00003860| 74 24 50 72 65 66 69 78 | 3e 2e 0d 19 b4 23 c8 99 |t$Prefix|>....#..|
|00003870| 20 22 46 6f 6e 74 5f 4c | 69 73 74 46 6f 6e 74 73 | "Font_L|istFonts|
|00003880| 22 2c 2c 62 6c 6f 63 6b | 25 2c 2c 2d 31 0d 19 be |",,block|%,,-1...|
|00003890| 0e e3 20 66 25 3d 31 20 | b8 20 33 0d 19 c8 15 66 |.. f%=1 |. 3....f|
|000038a0| 6f 6e 74 24 28 66 25 29 | 3d 24 62 6c 6f 63 6b 25 |ont$(f%)|=$block%|
|000038b0| 0d 19 d2 05 ed 0d 19 dc | 05 cc 0d 19 e6 39 c8 99 |........|.....9..|
|000038c0| 20 22 4f 53 5f 47 53 54 | 72 61 6e 73 22 2c 22 3c | "OS_GST|rans","<|
|000038d0| 50 72 69 6e 74 4c 62 6c | 73 24 44 69 72 3e 2e 22 |PrintLbl|s$Dir>."|
|000038e0| 2c 62 6c 6f 63 6b 25 2c | 62 6c 6f 63 6b 25 2b 26 |,block%,|block%+&|
|000038f0| 34 30 30 0d 19 f0 19 68 | 65 72 65 24 3d a4 67 65 |400....h|ere$=.ge|
|00003900| 74 73 74 72 28 62 6c 6f | 63 6b 25 29 0d 19 fa 34 |tstr(blo|ck%)...4|
|00003910| c8 99 20 22 4f 53 5f 47 | 53 54 72 61 6e 73 22 2c |.. "OS_G|STrans",|
|00003920| 22 3c 46 6f 6e 74 24 50 | 61 74 68 3e 22 2c 62 6c |"<Font$P|ath>",bl|
|00003930| 6f 63 6b 25 2c 62 6c 6f | 63 6b 25 2b 26 34 30 30 |ock%,blo|ck%+&400|
|00003940| 0d 1a 04 19 70 61 74 68 | 24 3d a4 67 65 74 73 74 |....path|$=.getst|
|00003950| 72 28 62 6c 6f 63 6b 25 | 29 0d 1a 0e 43 e7 20 ac |r(block%|)...C. .|
|00003960| 20 a7 68 65 72 65 24 2c | 70 61 74 68 24 29 20 8c | .here$,|path$) .|
|00003970| 20 2a 53 65 74 20 46 6f | 6e 74 24 50 61 74 68 20 | *Set Fo|nt$Path |
|00003980| 3c 46 6f 6e 74 24 50 61 | 74 68 3e 2c 3c 50 72 69 |<Font$Pa|th>,<Pri|
|00003990| 6e 74 4c 62 6c 73 24 44 | 69 72 3e 2e 0d 1a 18 05 |ntLbls$D|ir>.....|
|000039a0| cd 0d 1a 22 05 cd 0d 1a | 2c 05 e1 0d 1a 36 05 3a |..."....|,....6.:|
|000039b0| 0d 1a 40 0c dd 20 f2 66 | 6f 6e 74 73 0d 1a 4a 4f |..@.. .f|onts..JO|
|000039c0| ea 20 68 65 61 64 65 72 | 24 2c 62 6c 6f 63 6b 73 |. header|$,blocks|
|000039d0| 69 7a 65 25 2c 68 65 61 | 70 62 6c 6f 63 6b 73 69 |ize%,hea|pblocksi|
|000039e0| 7a 65 25 2c 68 65 61 70 | 62 6c 6f 63 6b 69 6e 63 |ze%,heap|blockinc|
|000039f0| 25 2c 63 6f 75 6e 74 25 | 2c 6f 70 74 69 6f 6e 73 |%,count%|,options|
|00003a00| 25 2c 6c 61 73 74 66 6f | 6e 74 24 0d 1a 54 15 c8 |%,lastfo|nt$..T..|
|00003a10| 99 20 22 48 6f 75 72 67 | 6c 61 73 73 5f 4f 6e 22 |. "Hourg|lass_On"|
|00003a20| 0d 1a 5e 30 e7 20 21 74 | 65 6d 70 61 6e 63 68 6f |..^0. !t|empancho|
|00003a30| 72 25 3c 3e 30 20 8c 20 | f2 73 63 72 61 70 62 6c |r%<>0 . |.scrapbl|
|00003a40| 6f 63 6b 28 74 65 6d 70 | 61 6e 63 68 6f 72 25 29 |ock(temp|anchor%)|
|00003a50| 0d 1a 68 38 e7 20 21 66 | 6f 6e 74 6d 65 6e 75 61 |..h8. !f|ontmenua|
|00003a60| 6e 63 68 6f 72 25 3c 3e | 30 20 8c 20 f2 73 63 72 |nchor%<>|0 . .scr|
|00003a70| 61 70 62 6c 6f 63 6b 28 | 66 6f 6e 74 6d 65 6e 75 |apblock(|fontmenu|
|00003a80| 61 6e 63 68 6f 72 25 29 | 0d 1a 72 0f f2 6c 6f 73 |anchor%)|..r..los|
|00003a90| 65 5f 66 6f 6e 74 73 0d | 1a 7c 22 68 65 61 64 65 |e_fonts.|.|"heade|
|00003aa0| 72 24 3d 22 7c 62 72 6b | 7c 6c 69 74 30 53 79 73 |r$="|brk||lit0Sys|
|00003ab0| 74 65 6d 20 66 6f 6e 74 | 22 0d 1a 86 17 62 6c 6f |tem font|"....blo|
|00003ac0| 63 6b 73 69 7a 65 25 3d | a9 68 65 61 64 65 72 24 |cksize%=|.header$|
|00003ad0| 0d 1a 90 17 68 65 61 70 | 62 6c 6f 63 6b 73 69 7a |....heap|blocksiz|
|00003ae0| 65 25 3d 26 34 30 30 0d | 1a 9a 16 68 65 61 70 62 |e%=&400.|...heapb|
|00003af0| 6c 6f 63 6b 69 6e 63 25 | 3d 26 31 30 30 0d 1a a4 |lockinc%|=&100...|
|00003b00| 2a f2 6e 65 77 5f 62 6c | 6f 63 6b 28 74 65 6d 70 |*.new_bl|ock(temp|
|00003b10| 61 6e 63 68 6f 72 25 2c | 68 65 61 70 62 6c 6f 63 |anchor%,|heapbloc|
|00003b20| 6b 73 69 7a 65 25 29 0d | 1a ae 19 24 21 74 65 6d |ksize%).|...$!tem|
|00003b30| 70 61 6e 63 68 6f 72 25 | 3d 68 65 61 64 65 72 24 |panchor%|=header$|
|00003b40| 0d 1a b8 0c 63 6f 75 6e | 74 25 3d 30 0d 1a c2 0c |....coun|t%=0....|
|00003b50| 66 6f 6e 74 73 25 3d 30 | 0d 1a cc 0e 6f 70 74 69 |fonts%=0|....opti|
|00003b60| 6f 6e 73 25 3d 31 0d 1a | d6 18 6c 61 73 74 66 6f |ons%=1..|..lastfo|
|00003b70| 6e 74 24 3d 22 4e 6f 20 | 66 6f 6e 74 73 22 0d 1a |nt$="No |fonts"..|
|00003b80| e0 05 f5 0d 1a ea 22 c8 | 99 20 22 48 6f 75 72 67 |......".|. "Hourg|
|00003b90| 6c 61 73 73 5f 4c 45 44 | 73 22 2c 63 6f 75 6e 74 |lass_LED|s",count|
|00003ba0| 25 20 80 20 33 0d 1a f4 | 31 c8 99 20 22 46 6f 6e |% . 3...|1.. "Fon|
|00003bb0| 74 5f 4c 69 73 74 46 6f | 6e 74 73 22 2c 2c 62 6c |t_ListFo|nts",,bl|
|00003bc0| 6f 63 6b 25 2c 63 6f 75 | 6e 74 25 20 b8 20 2c 2c |ock%,cou|nt% . ,,|
|00003bd0| 63 6f 75 6e 74 25 0d 1a | fe 12 e7 20 63 6f 75 6e |count%..|... coun|
|00003be0| 74 25 3c 3e 2d 31 20 8c | 0d 1b 08 15 6c 61 73 74 |t%<>-1 .|....last|
|00003bf0| 66 6f 6e 74 24 3d 24 62 | 6c 6f 63 6b 25 0d 1b 12 |font$=$b|lock%...|
|00003c00| 11 66 6f 6e 74 73 25 3d | 63 6f 75 6e 74 25 0d 1b |.fonts%=|count%..|
|00003c10| 1c 0f 6f 70 74 69 6f 6e | 73 25 2b 3d 31 0d 1b 26 |..option|s%+=1..&|
|00003c20| 2c e7 20 62 6c 6f 63 6b | 73 69 7a 65 25 2b a9 24 |,. block|size%+.$|
|00003c30| 62 6c 6f 63 6b 25 2b 32 | 3e 68 65 61 70 62 6c 6f |block%+2|>heapblo|
|00003c40| 63 6b 73 69 7a 65 25 20 | 8c 0d 1b 30 21 68 65 61 |cksize% |...0!hea|
|00003c50| 70 62 6c 6f 63 6b 73 69 | 7a 65 25 2b 3d 68 65 61 |pblocksi|ze%+=hea|
|00003c60| 70 62 6c 6f 63 6b 69 6e | 63 25 0d 1b 3a 17 68 65 |pblockin|c%..:.he|
|00003c70| 61 70 62 6c 6f 63 6b 69 | 6e 63 25 2b 3d 26 31 30 |apblocki|nc%+=&10|
|00003c80| 30 0d 1b 44 2c f2 65 78 | 74 65 6e 64 62 6c 6f 63 |0..D,.ex|tendbloc|
|00003c90| 6b 28 74 65 6d 70 61 6e | 63 68 6f 72 25 2c 68 65 |k(tempan|chor%,he|
|00003ca0| 61 70 62 6c 6f 63 6b 73 | 69 7a 65 25 29 0d 1b 4e |apblocks|ize%)..N|
|00003cb0| 05 cd 0d 1b 58 2a 24 28 | 21 74 65 6d 70 61 6e 63 |....X*$(|!tempanc|
|00003cc0| 68 6f 72 25 2b 62 6c 6f | 63 6b 73 69 7a 65 25 29 |hor%+blo|cksize%)|
|00003cd0| 3d 22 2c 22 2b 24 62 6c | 6f 63 6b 25 0d 1b 62 1a |=","+$bl|ock%..b.|
|00003ce0| 62 6c 6f 63 6b 73 69 7a | 65 25 2b 3d a9 24 62 6c |blocksiz|e%+=.$bl|
|00003cf0| 6f 63 6b 25 2b 31 0d 1b | 6c 0e e3 20 66 25 3d 31 |ock%+1..|l.. f%=1|
|00003d00| 20 b8 20 33 0d 1b 76 19 | e7 20 66 6f 6e 74 24 28 | . 3..v.|. font$(|
|00003d10| 66 25 29 3d 24 62 6c 6f | 63 6b 25 20 8c 0d 1b 80 |f%)=$blo|ck% ....|
|00003d20| 11 66 6f 6e 74 25 28 66 | 25 2c 30 29 3d 31 0d 1b |.font%(f|%,0)=1..|
|00003d30| 8a 05 cd 0d 1b 94 05 ed | 0d 1b 9e 05 cd 0d 1b a8 |........|........|
|00003d40| 0f fd 20 63 6f 75 6e 74 | 25 3d 2d 31 0d 1b b2 38 |.. count|%=-1...8|
|00003d50| e7 20 6c 61 73 74 66 6f | 6e 74 24 3d 22 4e 6f 20 |. lastfo|nt$="No |
|00003d60| 66 6f 6e 74 73 22 20 8c | 20 85 20 30 2c 22 46 61 |fonts" .| . 0,"Fa|
|00003d70| 74 61 6c 20 65 72 72 6f | 72 3a 20 4e 6f 20 66 6f |tal erro|r: No fo|
|00003d80| 6e 74 73 22 0d 1b bc 2e | f2 6e 65 77 5f 62 6c 6f |nts"....|.new_blo|
|00003d90| 63 6b 28 66 6f 6e 74 6d | 65 6e 75 61 6e 63 68 6f |ck(fontm|enuancho|
|00003da0| 72 25 2c 32 38 2b 6f 70 | 74 69 6f 6e 73 25 2a 32 |r%,28+op|tions%*2|
|00003db0| 34 29 0d 1b c6 5d f2 61 | 73 73 65 6d 62 6c 65 5f |4)...].a|ssemble_|
|00003dc0| 6d 65 6e 75 28 21 66 6f | 6e 74 6d 65 6e 75 61 6e |menu(!fo|ntmenuan|
|00003dd0| 63 68 6f 72 25 2c 21 66 | 6f 6e 74 6d 65 6e 75 61 |chor%,!f|ontmenua|
|00003de0| 6e 63 68 6f 72 25 2b 32 | 38 2b 6f 70 74 69 6f 6e |nchor%+2|8+option|
|00003df0| 73 25 2a 32 34 2c 21 74 | 65 6d 70 61 6e 63 68 6f |s%*24,!t|empancho|
|00003e00| 72 25 2c 22 46 6f 6e 74 | 20 6c 69 73 74 22 29 0d |r%,"Font| list").|
|00003e10| 1b d0 1c f2 73 63 72 61 | 70 62 6c 6f 63 6b 28 74 |....scra|pblock(t|
|00003e20| 65 6d 70 61 6e 63 68 6f | 72 25 29 0d 1b da 1b 66 |empancho|r%)....f|
|00003e30| 6f 6e 74 4d 25 3d 21 66 | 6f 6e 74 6d 65 6e 75 61 |ontM%=!f|ontmenua|
|00003e40| 6e 63 68 6f 72 25 0d 1b | e4 0e e3 20 66 25 3d 31 |nchor%..|... f%=1|
|00003e50| 20 b8 20 33 0d 1b ee 15 | e7 20 66 6f 6e 74 25 28 | . 3....|. font%(|
|00003e60| 66 25 2c 30 29 3d 30 20 | 8c 0d 1b f8 63 f2 77 69 |f%,0)=0 |....c.wi|
|00003e70| 6d 70 79 5f 65 72 72 6f | 72 28 30 2c 22 46 6f 6e |mpy_erro|r(0,"Fon|
|00003e80| 74 20 22 22 22 2b 66 6f | 6e 74 24 28 66 25 29 2b |t """+fo|nt$(f%)+|
|00003e90| 22 22 22 20 6e 6f 74 20 | 66 6f 75 6e 64 2e 20 49 |""" not |found. I|
|00003ea0| 74 20 73 68 61 6c 6c 20 | 62 65 20 72 65 70 6c 61 |t shall |be repla|
|00003eb0| 63 65 64 20 62 79 20 22 | 22 22 2b 6c 61 73 74 66 |ced by "|""+lastf|
|00003ec0| 6f 6e 74 24 2b 22 22 22 | 22 2c a3 29 0d 1c 02 17 |ont$+"""|",.)....|
|00003ed0| 66 6f 6e 74 24 28 66 25 | 29 3d 6c 61 73 74 66 6f |font$(f%|)=lastfo|
|00003ee0| 6e 74 24 0d 1c 0c 05 cd | 0d 1c 16 11 66 6f 6e 74 |nt$.....|....font|
|00003ef0| 25 28 66 25 2c 30 29 3d | 30 0d 1c 20 05 ed 0d 1c |%(f%,0)=|0.. ....|
|00003f00| 2a 17 c8 99 20 22 48 6f | 75 72 67 6c 61 73 73 5f |*... "Ho|urglass_|
|00003f10| 4c 45 44 73 22 0d 1c 34 | 1b e7 20 77 69 6e 64 6f |LEDs"..4|.. windo|
|00003f20| 77 25 28 6d 61 69 6e 57 | 25 2c 31 29 3e 30 20 8c |w%(mainW|%,1)>0 .|
|00003f30| 0d 1c 3e 0e e3 20 66 25 | 3d 31 20 b8 20 33 0d 1c |..>.. f%|=1 . 3..|
|00003f40| 48 11 f2 67 65 74 5f 66 | 6f 6e 74 28 66 25 29 0d |H..get_f|ont(f%).|
|00003f50| 1c 52 05 ed 0d 1c 5c 05 | cd 0d 1c 66 16 c8 99 20 |.R....\.|...f... |
|00003f60| 22 48 6f 75 72 67 6c 61 | 73 73 5f 4f 66 66 22 0d |"Hourgla|ss_Off".|
|00003f70| 1c 70 05 e1 0d 1c 7a 05 | 3a 0d 1c 84 19 dd 20 f2 |.p....z.|:..... .|
|00003f80| 6d 61 69 6e 5f 6d 65 6e | 75 28 63 68 6f 69 63 65 |main_men|u(choice|
|00003f90| 24 29 0d 1c 8e 1c ea 20 | 64 6f 74 25 2c 6f 70 74 |$)..... |dot%,opt|
|00003fa0| 69 6f 6e 31 24 2c 6f 70 | 74 69 6f 6e 32 24 0d 1c |ion1$,op|tion2$..|
|00003fb0| 98 16 64 6f 74 25 3d a7 | 63 68 6f 69 63 65 24 2c |..dot%=.|choice$,|
|00003fc0| 22 2e 22 29 0d 1c a2 1d | 6f 70 74 69 6f 6e 31 24 |".")....|option1$|
|00003fd0| 3d c0 63 68 6f 69 63 65 | 24 2c 64 6f 74 25 2d 31 |=.choice|$,dot%-1|
|00003fe0| 29 0d 1c ac 1c 63 68 6f | 69 63 65 24 3d c1 63 68 |)....cho|ice$=.ch|
|00003ff0| 6f 69 63 65 24 2c 64 6f | 74 25 2b 31 29 0d 1c b6 |oice$,do|t%+1)...|
|00004000| 16 64 6f 74 25 3d a7 63 | 68 6f 69 63 65 24 2c 22 |.dot%=.c|hoice$,"|
|00004010| 2e 22 29 0d 1c c0 1d 6f | 70 74 69 6f 6e 32 24 3d |.")....o|ption2$=|
|00004020| c0 63 68 6f 69 63 65 24 | 2c 64 6f 74 25 2d 31 29 |.choice$|,dot%-1)|
|00004030| 0d 1c ca 1c 63 68 6f 69 | 63 65 24 3d c1 63 68 6f |....choi|ce$=.cho|
|00004040| 69 63 65 24 2c 64 6f 74 | 25 2b 31 29 0d 1c d4 11 |ice$,dot|%+1)....|
|00004050| c8 8e 20 6f 70 74 69 6f | 6e 31 24 20 ca 0d 1c de |.. optio|n1$ ....|
|00004060| 2d c9 20 22 46 6f 6e 74 | 73 22 3a 20 f2 63 68 61 |-. "Font|s": .cha|
|00004070| 6e 67 65 5f 66 6f 6e 74 | 28 6f 70 74 69 6f 6e 32 |nge_font|(option2|
|00004080| 24 2c 63 68 6f 69 63 65 | 24 29 0d 1c e8 13 c9 20 |$,choice|$)..... |
|00004090| 22 52 65 6d 6f 76 65 20 | 43 53 56 22 3a 0d 1c f2 |"Remove |CSV":...|
|000040a0| 1e e7 20 69 6e 70 75 74 | 66 69 6c 65 24 3c 3e 22 |.. input|file$<>"|
|000040b0| ab 20 4e 6f 6e 65 20 bb | 22 20 8c 0d 1c fc 2b f2 |. None .|" ....+.|
|000040c0| 73 63 72 61 70 62 6c 6f | 63 6b 28 66 69 6c 65 61 |scrapblo|ck(filea|
|000040d0| 6e 63 68 6f 72 25 29 3a | 21 66 69 6c 65 61 6e 63 |nchor%):|!fileanc|
|000040e0| 68 6f 72 25 3d 30 0d 1d | 06 19 69 6e 70 75 74 66 |hor%=0..|..inputf|
|000040f0| 69 6c 65 24 3d 22 ab 20 | 4e 6f 6e 65 20 bb 22 0d |ile$=". |None .".|
|00004100| 1d 10 32 24 a4 69 63 6f | 6e 74 65 78 74 61 64 64 |..2$.ico|ntextadd|
|00004110| 72 28 77 69 6e 64 6f 77 | 25 28 6d 61 69 6e 57 25 |r(window|%(mainW%|
|00004120| 2c 31 29 2c 32 29 3d 69 | 6e 70 75 74 66 69 6c 65 |,1),2)=i|nputfile|
|00004130| 24 0d 1d 1a 20 f2 63 65 | 6e 74 72 65 28 77 69 6e |$... .ce|ntre(win|
|00004140| 64 6f 77 25 28 6d 61 69 | 6e 57 25 2c 31 29 2c 32 |dow%(mai|nW%,1),2|
|00004150| 29 0d 1d 24 05 cd 0d 1d | 2e 05 cb 0d 1d 38 05 e1 |)..$....|.....8..|
|00004160| 0d 1d 42 05 3a 0d 1d 4c | 1f dd 20 f2 63 68 61 6e |..B.:..L|.. .chan|
|00004170| 67 65 5f 66 6f 6e 74 28 | 61 72 65 61 24 2c 66 6f |ge_font(|area$,fo|
|00004180| 6e 74 24 29 0d 1d 56 0b | 61 72 65 61 25 3d 30 0d |nt$)..V.|area%=0.|
|00004190| 1d 60 15 e7 20 66 6f 6e | 74 24 3d 61 72 65 61 24 |.`.. fon|t$=area$|
|000041a0| 20 8c 20 e1 0d 1d 6a 0e | c8 8e 20 61 72 65 61 24 | . ...j.|.. area$|
|000041b0| 20 ca 0d 1d 74 29 c9 20 | 22 52 65 76 69 73 65 20 | ...t). |"Revise |
|000041c0| 66 6f 6e 74 20 6c 69 73 | 74 22 3a 20 f2 63 72 65 |font lis|t": .cre|
|000041d0| 61 74 65 5f 6d 65 6e 75 | 73 3a e1 0d 1d 7e 15 c9 |ate_menu|s:...~..|
|000041e0| 20 22 4e 61 6d 65 22 3a | 20 61 72 65 61 25 3d 31 | "Name":| area%=1|
|000041f0| 0d 1d 88 18 c9 20 22 41 | 64 64 72 65 73 73 22 3a |..... "A|ddress":|
|00004200| 20 61 72 65 61 25 3d 32 | 0d 1d 92 1a c9 20 22 4c | area%=2|..... "L|
|00004210| 61 73 74 20 6c 69 6e 65 | 22 3a 20 61 72 65 61 25 |ast line|": area%|
|00004220| 3d 33 0d 1d 9c 05 7f 0d | 1d a6 46 f2 77 69 6d 70 |=3......|..F.wimp|
|00004230| 79 5f 65 72 72 6f 72 28 | 30 2c 22 49 6e 74 65 72 |y_error(|0,"Inter|
|00004240| 6e 61 6c 20 65 72 72 6f | 72 3a 20 55 6e 61 62 6c |nal erro|r: Unabl|
|00004250| 65 20 74 6f 20 69 64 65 | 6e 74 69 66 79 20 66 6f |e to ide|ntify fo|
|00004260| 6e 74 20 61 72 65 61 22 | 2c b9 29 3a e1 0d 1d b0 |nt area"|,.):....|
|00004270| 05 cb 0d 1d ba 15 f2 6c | 6f 73 65 5f 66 6f 6e 74 |.......l|ose_font|
|00004280| 28 61 72 65 61 25 29 0d | 1d c4 16 66 6f 6e 74 24 |(area%).|...font$|
|00004290| 28 61 72 65 61 25 29 3d | 66 6f 6e 74 24 0d 1d ce |(area%)=|font$...|
|000042a0| 14 f2 67 65 74 5f 66 6f | 6e 74 28 61 72 65 61 25 |..get_fo|nt(area%|
|000042b0| 29 0d 1d d8 18 f2 75 70 | 64 61 74 65 5f 66 6f 6e |).....up|date_fon|
|000042c0| 74 63 6f 6e 74 72 6f 6c | 73 0d 1d e2 05 e1 0d 1d |tcontrol|s.......|
|000042d0| ec 05 3a 0d 1d f6 11 dd | 20 f2 6c 6f 73 65 5f 66 |..:.....| .lose_f|
|000042e0| 6f 6e 74 73 0d 1e 00 0b | ea 20 78 25 2c 79 25 0d |onts....|. x%,y%.|
|000042f0| 1e 0a 0e e3 20 78 25 3d | 31 20 b8 20 33 0d 1e 14 |.... x%=|1 . 3...|
|00004300| 0e e3 20 79 25 3d 30 20 | b8 20 31 0d 1e 1e 14 e7 |.. y%=0 |. 1.....|
|00004310| 20 66 6f 6e 74 25 28 78 | 25 2c 79 25 29 20 8c 0d | font%(x|%,y%) ..|
|00004320| 1e 28 23 c8 99 20 22 46 | 6f 6e 74 5f 4c 6f 73 65 |.(#.. "F|ont_Lose|
|00004330| 46 6f 6e 74 22 2c 66 6f | 6e 74 25 28 78 25 2c 79 |Font",fo|nt%(x%,y|
|00004340| 25 29 0d 1e 32 12 66 6f | 6e 74 25 28 78 25 2c 79 |%)..2.fo|nt%(x%,y|
|00004350| 25 29 3d 30 0d 1e 3c 05 | cd 0d 1e 46 05 ed 0d 1e |%)=0..<.|...F....|
|00004360| 50 05 ed 0d 1e 5a 05 e1 | 0d 1e 64 05 3a 0d 1e 6e |P....Z..|..d.:..n|
|00004370| 14 dd 20 f2 6c 6f 73 65 | 5f 66 6f 6e 74 28 66 25 |.. .lose|_font(f%|
|00004380| 29 0d 1e 78 08 ea 20 79 | 25 0d 1e 82 0e e3 20 79 |)..x.. y|%..... y|
|00004390| 25 3d 30 20 b8 20 31 0d | 1e 8c 14 e7 20 66 6f 6e |%=0 . 1.|.... fon|
|000043a0| 74 25 28 66 25 2c 79 25 | 29 20 8c 0d 1e 96 23 c8 |t%(f%,y%|) ....#.|
|000043b0| 99 20 22 46 6f 6e 74 5f | 4c 6f 73 65 46 6f 6e 74 |. "Font_|LoseFont|
|000043c0| 22 2c 66 6f 6e 74 25 28 | 66 25 2c 79 25 29 0d 1e |",font%(|f%,y%)..|
|000043d0| a0 12 66 6f 6e 74 25 28 | 66 25 2c 79 25 29 3d 30 |..font%(|f%,y%)=0|
|000043e0| 0d 1e aa 05 cd 0d 1e b4 | 05 ed 0d 1e be 05 e1 0d |........|........|
|000043f0| 1e c8 05 3a 0d 1e d2 13 | dd 20 f2 67 65 74 5f 66 |...:....|. .get_f|
|00004400| 6f 6e 74 28 66 25 29 0d | 1e dc 3b c8 99 20 22 46 |ont(f%).|..;.. "F|
|00004410| 6f 6e 74 5f 46 69 6e 64 | 46 6f 6e 74 22 2c 2c 66 |ont_Find|Font",,f|
|00004420| 6f 6e 74 24 28 66 25 29 | 2c 31 32 2a 31 36 2c 31 |ont$(f%)|,12*16,1|
|00004430| 32 2a 31 36 20 b8 20 66 | 6f 6e 74 25 28 66 25 2c |2*16 . f|ont%(f%,|
|00004440| 30 29 0d 1e e6 05 e1 0d | 1e f0 05 3a 0d 1e fa 11 |0)......|...:....|
|00004450| dd 20 f2 73 61 76 65 5f | 73 65 74 75 70 0d 1f 04 |. .save_|setup...|
|00004460| 0c ea 20 73 65 74 75 70 | 25 0d 1f 0e 25 73 65 74 |.. setup|%...%set|
|00004470| 75 70 25 3d ae 28 22 3c | 50 72 69 6e 74 4c 62 6c |up%=.("<|PrintLbl|
|00004480| 73 24 44 69 72 3e 2e 53 | 65 74 75 70 22 29 0d 1f |s$Dir>.S|etup")..|
|00004490| 18 0e e3 20 66 25 3d 31 | 20 b8 20 33 0d 1f 22 16 |... f%=1| . 3..".|
|000044a0| f1 23 73 65 74 75 70 25 | 2c 66 6f 6e 74 24 28 66 |.#setup%|,font$(f|
|000044b0| 25 29 0d 1f 2c 05 ed 0d | 1f 36 20 f1 23 73 65 74 |%)..,...|.6 .#set|
|000044c0| 75 70 25 2c 6e 61 6d 65 | 73 69 7a 65 25 2c 61 64 |up%,name|size%,ad|
|000044d0| 64 72 73 69 7a 65 25 0d | 1f 40 0c d9 23 73 65 74 |drsize%.|.@..#set|
|000044e0| 75 70 25 0d 1f 4a 05 e1 | 0d 1f 54 05 3a 0d 1f 5e |up%..J..|..T.:..^|
|000044f0| 11 dd 20 f2 6c 6f 61 64 | 5f 73 65 74 75 70 0d 1f |.. .load|_setup..|
|00004500| 68 0c ea 20 73 65 74 75 | 70 25 0d 1f 72 25 73 65 |h.. setu|p%..r%se|
|00004510| 74 75 70 25 3d 8e 28 22 | 3c 50 72 69 6e 74 4c 62 |tup%=.("|<PrintLb|
|00004520| 6c 73 24 44 69 72 3e 2e | 53 65 74 75 70 22 29 0d |ls$Dir>.|Setup").|
|00004530| 1f 7c 0e e3 20 66 25 3d | 31 20 b8 20 33 0d 1f 86 |.|.. f%=|1 . 3...|
|00004540| 16 e8 23 73 65 74 75 70 | 25 2c 66 6f 6e 74 24 28 |..#setup|%,font$(|
|00004550| 66 25 29 0d 1f 90 05 ed | 0d 1f 9a 20 e8 23 73 65 |f%).....|... .#se|
|00004560| 74 75 70 25 2c 6e 61 6d | 65 73 69 7a 65 25 2c 61 |tup%,nam|esize%,a|
|00004570| 64 64 72 73 69 7a 65 25 | 0d 1f a4 0c d9 23 73 65 |ddrsize%|.....#se|
|00004580| 74 75 70 25 0d 1f ae 05 | e1 0d 1f b8 05 3a 0d 1f |tup%....|.....:..|
|00004590| c2 1a dd 20 f2 75 70 64 | 61 74 65 5f 66 6f 6e 74 |... .upd|ate_font|
|000045a0| 63 6f 6e 74 72 6f 6c 73 | 0d 1f cc 10 ea 20 68 61 |controls|..... ha|
|000045b0| 6e 64 6c 65 25 2c 66 25 | 0d 1f d6 1d 68 61 6e 64 |ndle%,f%|....hand|
|000045c0| 6c 65 25 3d 77 69 6e 64 | 6f 77 25 28 6d 61 69 6e |le%=wind|ow%(main|
|000045d0| 57 25 2c 31 29 0d 1f e0 | 0e e3 20 66 25 3d 31 20 |W%,1)...|.. f%=1 |
|000045e0| b8 20 33 0d 1f ea 2a 24 | a4 69 63 6f 6e 74 65 78 |. 3...*$|.icontex|
|000045f0| 74 61 64 64 72 28 68 61 | 6e 64 6c 65 25 2c 66 25 |taddr(ha|ndle%,f%|
|00004600| 2b 35 29 3d 66 6f 6e 74 | 24 28 66 25 29 0d 1f f4 |+5)=font|$(f%)...|
|00004610| 13 21 62 6c 6f 63 6b 25 | 3d 68 61 6e 64 6c 65 25 |.!block%|=handle%|
|00004620| 0d 1f fe 11 62 6c 6f 63 | 6b 25 21 34 3d 66 25 2b |....bloc|k%!4=f%+|
|00004630| 35 0d 20 08 25 62 6c 6f | 63 6b 25 21 38 3d 28 31 |5. .%blo|ck%!8=(1|
|00004640| 3c 3c 36 29 2b 28 66 6f | 6e 74 25 28 66 25 2c 30 |<<6)+(fo|nt%(f%,0|
|00004650| 29 3c 3c 32 34 29 0d 20 | 12 1e 62 6c 6f 63 6b 25 |)<<24). |..block%|
|00004660| 21 31 32 3d 28 31 3c 3c | 36 29 2b 28 32 35 35 3c |!12=(1<<|6)+(255<|
|00004670| 3c 32 34 29 0d 20 1c 22 | c8 99 20 22 57 69 6d 70 |<24). ."|.. "Wimp|
|00004680| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_SetIcon|State",,|
|00004690| 62 6c 6f 63 6b 25 0d 20 | 26 05 ed 0d 20 30 05 e1 |block%. |&... 0..|
|000046a0| 0d 20 3a 05 3a 0d 20 44 | 1a dd 20 a4 6d 65 6d 66 |. :.:. D|.. .memf|
|000046b0| 69 6c 65 28 f8 20 70 6f | 69 6e 74 65 72 25 29 0d |ile(. po|inter%).|
|000046c0| 20 4e 08 ea 20 73 24 0d | 20 58 18 73 24 3d a4 67 | N.. s$.| X.s$=.g|
|000046d0| 65 74 73 74 72 28 70 6f | 69 6e 74 65 72 25 29 0d |etstr(po|inter%).|
|000046e0| 20 62 13 70 6f 69 6e 74 | 65 72 25 2b 3d a9 73 24 | b.point|er%+=.s$|
|000046f0| 2b 31 0d 20 6c 07 3d 73 | 24 0d 20 76 05 3a 0d 20 |+1. l.=s|$. v.:. |
|00004700| 80 1b dd 2d 20 42 75 73 | 69 6e 65 73 73 20 70 61 |...- Bus|iness pa|
|00004710| 72 74 20 42 45 47 49 4e | 53 0d 20 8a 05 3a 0d 20 |rt BEGIN|S. ..:. |
|00004720| 94 0c dd 20 f2 70 72 69 | 6e 74 0d 20 9e 15 c8 99 |... .pri|nt. ....|
|00004730| 20 22 48 6f 75 72 67 6c | 61 73 73 5f 4f 6e 22 0d | "Hourgl|ass_On".|
|00004740| 20 a8 19 66 69 6c 65 70 | 74 72 25 3d 21 66 69 6c | ..filep|tr%=!fil|
|00004750| 65 61 6e 63 68 6f 72 25 | 0d 20 b2 0d 73 74 72 69 |eanchor%|. ..stri|
|00004760| 6e 67 25 3d 30 0d 20 bc | 0e 61 64 64 72 24 28 29 |ng%=0. .|.addr$()|
|00004770| 3d 22 22 0d 20 c6 2a c8 | 95 20 28 66 69 6c 65 70 |="". .*.|. (filep|
|00004780| 74 72 25 2d 21 66 69 6c | 65 61 6e 63 68 6f 72 25 |tr%-!fil|eanchor%|
|00004790| 29 3c 3d 43 53 56 6c 65 | 6e 67 74 68 25 0d 20 d0 |)<=CSVle|ngth%. .|
|000047a0| 1f c8 99 20 22 48 6f 75 | 72 67 6c 61 73 73 5f 4c |... "Hou|rglass_L|
|000047b0| 45 44 73 22 2c 73 74 72 | 69 6e 67 25 0d 20 da 0e |EDs",str|ing%. ..|
|000047c0| 73 74 72 69 6e 67 25 2b | 3d 31 0d 20 e4 22 73 74 |string%+|=1. ."st|
|000047d0| 72 69 6e 67 24 3d a4 6d | 65 6d 66 69 6c 65 28 66 |ring$=.m|emfile(f|
|000047e0| 69 6c 65 70 74 72 25 29 | 2b 22 2c 22 0d 20 ee 14 |ileptr%)|+",". ..|
|000047f0| e7 20 73 74 72 69 6e 67 | 24 3c 3e 22 2c 22 20 8c |. string|$<>"," .|
|00004800| 0d 20 f8 0a 70 74 72 25 | 3d 30 0d 21 02 0d 61 72 |. ..ptr%|=0.!..ar|
|00004810| 5f 70 74 72 25 3d 30 0d | 21 0c 05 f5 0d 21 16 16 |_ptr%=0.|!....!..|
|00004820| 70 74 72 25 3d a7 73 74 | 72 69 6e 67 24 2c 22 2c |ptr%=.st|ring$,",|
|00004830| 22 29 0d 21 20 2b 61 64 | 64 72 24 28 73 74 72 69 |").! +ad|dr$(stri|
|00004840| 6e 67 25 2c 61 72 5f 70 | 74 72 25 29 3d c0 73 74 |ng%,ar_p|tr%)=.st|
|00004850| 72 69 6e 67 24 2c 70 74 | 72 25 2d 31 29 0d 21 2a |ring$,pt|r%-1).!*|
|00004860| 1a 6c 61 73 74 25 28 73 | 74 72 69 6e 67 25 29 3d |.last%(s|tring%)=|
|00004870| 61 72 5f 70 74 72 25 0d | 21 34 1c 73 74 72 69 6e |ar_ptr%.|!4.strin|
|00004880| 67 24 3d c1 73 74 72 69 | 6e 67 24 2c 70 74 72 25 |g$=.stri|ng$,ptr%|
|00004890| 2b 31 29 0d 21 3e 0e 61 | 72 5f 70 74 72 25 2b 3d |+1).!>.a|r_ptr%+=|
|000048a0| 31 0d 21 48 10 fd 20 73 | 74 72 69 6e 67 24 3d 22 |1.!H.. s|tring$="|
|000048b0| 22 0d 21 52 05 cd 0d 21 | 5c 1f e7 20 73 74 72 69 |".!R...!|\.. stri|
|000048c0| 6e 67 25 3d 36 20 84 20 | 73 74 72 69 6e 67 24 3d |ng%=6 . |string$=|
|000048d0| 22 2c 22 20 8c 0d 21 66 | 17 c8 99 20 22 48 6f 75 |"," ..!f|... "Hou|
|000048e0| 72 67 6c 61 73 73 5f 4c | 45 44 73 22 0d 21 70 10 |rglass_L|EDs".!p.|
|000048f0| f2 70 72 69 6e 74 5f 62 | 6c 6f 63 6b 0d 21 7a 0d |.print_b|lock.!z.|
|00004900| 73 74 72 69 6e 67 25 3d | 30 0d 21 84 0e 61 64 64 |string%=|0.!..add|
|00004910| 72 24 28 29 3d 22 22 0d | 21 8e 05 cd 0d 21 98 05 |r$()="".|!....!..|
|00004920| ce 0d 21 a2 16 c8 99 20 | 22 48 6f 75 72 67 6c 61 |..!.... |"Hourgla|
|00004930| 73 73 5f 4f 66 66 22 0d | 21 ac 05 e1 0d 21 b6 05 |ss_Off".|!....!..|
|00004940| 3a 0d 21 c0 1c dd 20 f2 | 70 72 69 6e 74 69 6e 67 |:.!... .|printing|
|00004950| 5f 65 72 72 6f 72 28 4e | 25 2c 65 24 29 0d 21 ca |_error(N|%,e$).!.|
|00004960| 1f c8 99 20 22 50 44 72 | 69 76 65 72 5f 41 62 6f |... "PDr|iver_Abo|
|00004970| 72 74 4a 6f 62 22 2c 66 | 69 6c 65 25 0d 21 d4 0b |rtJob",f|ile%.!..|
|00004980| d9 23 66 69 6c 65 25 0d | 21 de 33 f2 77 69 6d 70 |.#file%.|!.3.wimp|
|00004990| 79 5f 65 72 72 6f 72 28 | 4e 25 2c 22 22 22 22 2b |y_error(|N%,""""+|
|000049a0| 65 24 2b 22 22 22 20 64 | 75 72 69 6e 67 20 70 72 |e$+""" d|uring pr|
|000049b0| 69 6e 74 69 6e 67 22 2c | b9 29 0d 21 e8 1c 85 20 |inting",|.).!... |
|000049c0| 32 35 35 2c 22 50 72 69 | 6e 74 69 6e 67 20 61 62 |255,"Pri|nting ab|
|000049d0| 6f 72 74 65 64 22 0d 21 | f2 05 e1 0d 21 fc 05 3a |orted".!|....!..:|
|000049e0| 0d 22 06 12 dd 20 f2 70 | 72 69 6e 74 5f 62 6c 6f |."... .p|rint_blo|
|000049f0| 63 6b 0d 22 10 24 c8 99 | 20 22 50 44 72 69 76 65 |ck.".$..| "PDrive|
|00004a00| 72 5f 49 6e 66 6f 22 20 | b8 20 2c 78 72 65 73 25 |r_Info" |. ,xres%|
|00004a10| 2c 79 72 65 73 25 0d 22 | 1a 2a c8 99 20 22 50 44 |,yres%."|.*.. "PD|
|00004a20| 72 69 76 65 72 5f 50 61 | 67 65 53 69 7a 65 22 20 |river_Pa|geSize" |
|00004a30| b8 20 2c 78 73 69 7a 65 | 25 2c 79 73 69 7a 65 25 |. ,xsize|%,ysize%|
|00004a40| 0d 22 24 17 66 69 6c 65 | 25 3d ae 28 22 70 72 69 |."$.file|%=.("pri|
|00004a50| 6e 74 65 72 3a 22 29 0d | 22 2e 07 ea 20 85 0d 22 |nter:").|"... .."|
|00004a60| 38 23 ee 20 85 20 ea 3a | f7 20 85 3a f2 70 72 69 |8#. . .:|. .:.pri|
|00004a70| 6e 74 69 6e 67 5f 65 72 | 72 6f 72 28 9e 2c f6 24 |nting_er|ror(.,.$|
|00004a80| 29 0d 22 42 2b c8 99 20 | 22 50 44 72 69 76 65 72 |)."B+.. |"PDriver|
|00004a90| 5f 53 65 6c 65 63 74 4a | 6f 62 22 2c 66 69 6c 65 |_SelectJ|ob",file|
|00004aa0| 25 2c 69 6e 70 75 74 66 | 69 6c 65 24 0d 22 4c 2c |%,inputf|ile$."L,|
|00004ab0| de 20 74 72 61 6e 73 66 | 6f 72 6d 25 20 31 36 2c |. transf|orm% 16,|
|00004ac0| 72 65 63 74 61 6e 67 6c | 65 25 20 31 36 2c 70 6c |rectangl|e% 16,pl|
|00004ad0| 6f 74 70 6f 73 25 20 38 | 0d 22 56 1d 74 72 61 6e |otpos% 8|."V.tran|
|00004ae0| 73 66 6f 72 6d 25 21 30 | 30 3d a4 66 69 78 65 64 |sform%!0|0=.fixed|
|00004af0| 31 36 28 31 29 0d 22 60 | 1d 74 72 61 6e 73 66 6f |16(1)."`|.transfo|
|00004b00| 72 6d 25 21 30 34 3d a4 | 66 69 78 65 64 31 36 28 |rm%!04=.|fixed16(|
|00004b10| 30 29 0d 22 6a 1d 74 72 | 61 6e 73 66 6f 72 6d 25 |0)."j.tr|ansform%|
|00004b20| 21 30 38 3d a4 66 69 78 | 65 64 31 36 28 30 29 0d |!08=.fix|ed16(0).|
|00004b30| 22 74 1d 74 72 61 6e 73 | 66 6f 72 6d 25 21 31 32 |"t.trans|form%!12|
|00004b40| 3d a4 66 69 78 65 64 31 | 36 28 31 29 0d 22 7e 18 |=.fixed1|6(1)."~.|
|00004b50| 74 6f 70 3d 79 73 69 7a | 65 25 2f 37 32 30 30 30 |top=ysiz|e%/72000|
|00004b60| 2a 31 38 30 0d 22 88 12 | 72 65 63 74 61 6e 67 6c |*180."..|rectangl|
|00004b70| 65 25 21 30 3d 30 0d 22 | 92 12 72 65 63 74 61 6e |e%!0=0."|..rectan|
|00004b80| 67 6c 65 25 21 34 3d 30 | 0d 22 9c 21 72 65 63 74 |gle%!4=0|.".!rect|
|00004b90| 61 6e 67 6c 65 25 21 38 | 3d 78 73 69 7a 65 25 2f |angle%!8|=xsize%/|
|00004ba0| 37 32 30 30 30 2a 31 38 | 30 0d 22 a6 15 72 65 63 |72000*18|0."..rec|
|00004bb0| 74 61 6e 67 6c 65 25 21 | 31 32 3d 74 6f 70 0d 22 |tangle%!|12=top."|
|00004bc0| b0 10 70 6c 6f 74 70 6f | 73 25 21 30 3d 30 0d 22 |..plotpo|s%!0=0."|
|00004bd0| ba 10 70 6c 6f 74 70 6f | 73 25 21 34 3d 30 0d 22 |..plotpo|s%!4=0."|
|00004be0| c4 44 c8 99 20 22 50 44 | 72 69 76 65 72 5f 47 69 |.D.. "PD|river_Gi|
|00004bf0| 76 65 52 65 63 74 61 6e | 67 6c 65 22 2c 31 2c 72 |veRectan|gle",1,r|
|00004c00| 65 63 74 61 6e 67 6c 65 | 25 2c 74 72 61 6e 73 66 |ectangle|%,transf|
|00004c10| 6f 72 6d 25 2c 70 6c 6f | 74 70 6f 73 25 2c 2d 32 |orm%,plo|tpos%,-2|
|00004c20| 35 36 0d 22 ce 35 c8 99 | 20 22 50 44 72 69 76 65 |56.".5..| "PDrive|
|00004c30| 72 5f 44 72 61 77 50 61 | 67 65 22 2c 31 2c 72 65 |r_DrawPa|ge",1,re|
|00004c40| 63 74 61 6e 67 6c 65 25 | 20 b8 20 6d 6f 72 65 25 |ctangle%| . more%|
|00004c50| 2c 2c 72 65 63 74 25 0d | 22 d8 0c c8 95 20 6d 6f |,,rect%.|".... mo|
|00004c60| 72 65 25 0d 22 e2 2b 66 | 6c 61 62 65 6c 25 3d 28 |re%.".+f|label%=(|
|00004c70| 74 6f 70 2d 72 65 63 74 | 61 6e 67 6c 65 25 21 31 |top-rect|angle%!1|
|00004c80| 32 29 2f 28 31 2e 35 2a | 31 38 30 29 2b 31 0d 22 |2)/(1.5*|180)+1."|
|00004c90| ec 2a 6c 6c 61 62 65 6c | 25 3d 28 74 6f 70 2d 72 |.*llabel|%=(top-r|
|00004ca0| 65 63 74 61 6e 67 6c 65 | 25 21 34 29 2f 28 31 2e |ectangle|%!4)/(1.|
|00004cb0| 35 2a 31 38 30 29 2b 31 | 0d 22 f6 1b e7 20 66 6c |5*180)+1|."... fl|
|00004cc0| 61 62 65 6c 25 3c 31 20 | 8c 20 66 6c 61 62 65 6c |abel%<1 |. flabel|
|00004cd0| 25 3d 31 0d 23 00 1b e7 | 20 6c 6c 61 62 65 6c 25 |%=1.#...| llabel%|
|00004ce0| 3e 36 20 8c 20 6c 6c 61 | 62 65 6c 25 3d 36 0d 23 |>6 . lla|bel%=6.#|
|00004cf0| 0a 27 e7 20 66 6c 61 62 | 65 6c 25 3e 6c 6c 61 62 |.'. flab|el%>llab|
|00004d00| 65 6c 25 20 8c 20 66 6c | 61 62 65 6c 25 3d 6c 6c |el% . fl|abel%=ll|
|00004d10| 61 62 65 6c 25 0d 23 14 | 45 e7 20 6c 6c 61 62 65 |abel%.#.|E. llabe|
|00004d20| 6c 25 3c 66 6c 61 62 65 | 6c 25 20 8c 20 6c 6c 61 |l%<flabe|l% . lla|
|00004d30| 62 65 6c 25 3d 66 6c 61 | 62 65 6c 25 3a 20 f4 20 |bel%=fla|bel%: . |
|00004d40| 4d 61 79 62 65 2c 20 69 | 66 20 70 61 67 65 20 73 |Maybe, i|f page s|
|00004d50| 69 7a 65 20 77 72 6f 6e | 67 21 0d 23 1e 1d e3 20 |ize wron|g!.#... |
|00004d60| 6c 6f 6f 70 25 3d 66 6c | 61 62 65 6c 25 20 b8 20 |loop%=fl|abel% . |
|00004d70| 6c 6c 61 62 65 6c 25 0d | 23 28 16 f2 70 72 69 6e |llabel%.|#(..prin|
|00004d80| 74 6c 61 62 65 6c 28 6c | 6f 6f 70 25 29 0d 23 32 |tlabel(l|oop%).#2|
|00004d90| 05 ed 0d 23 3c 38 c8 99 | 20 22 50 44 72 69 76 65 |...#<8..| "PDrive|
|00004da0| 72 5f 47 65 74 52 65 63 | 74 61 6e 67 6c 65 22 2c |r_GetRec|tangle",|
|00004db0| 2c 72 65 63 74 61 6e 67 | 6c 65 25 20 b8 20 6d 6f |,rectang|le% . mo|
|00004dc0| 72 65 25 2c 2c 72 65 63 | 74 25 0d 23 46 05 ce 0d |re%,,rec|t%.#F...|
|00004dd0| 23 50 1d c8 99 20 22 50 | 44 72 69 76 65 72 5f 45 |#P... "P|Driver_E|
|00004de0| 6e 64 4a 6f 62 22 2c 66 | 69 6c 65 25 0d 23 5a 0b |ndJob",f|ile%.#Z.|
|00004df0| d9 23 66 69 6c 65 25 0d | 23 64 07 f7 20 85 0d 23 |.#file%.|#d.. ..#|
|00004e00| 6e 05 e1 0d 23 78 05 3a | 0d 23 82 19 dd 20 f2 70 |n...#x.:|.#... .p|
|00004e10| 72 69 6e 74 6c 61 62 65 | 6c 28 6c 61 62 65 6c 25 |rintlabe|l(label%|
|00004e20| 29 0d 23 8c 15 ea 20 6c | 6f 6f 70 25 2c 78 25 2c |).#... l|oop%,x%,|
|00004e30| 79 25 2c 64 79 25 0d 23 | 96 2e 79 25 3d 74 6f 70 |y%,dy%.#|..y%=top|
|00004e40| 2d 31 2e 35 2a 31 38 30 | 2a 28 6c 61 62 65 6c 25 |-1.5*180|*(label%|
|00004e50| 2d 31 29 2d 6e 61 6d 65 | 73 69 7a 65 25 2f 37 32 |-1)-name|size%/72|
|00004e60| 2a 31 38 30 0d 23 a0 47 | c8 99 20 22 46 6f 6e 74 |*180.#.G|.. "Font|
|00004e70| 5f 46 69 6e 64 46 6f 6e | 74 22 2c 2c 66 6f 6e 74 |_FindFon|t",,font|
|00004e80| 24 28 31 29 2c 6e 61 6d | 65 73 69 7a 65 25 2a 31 |$(1),nam|esize%*1|
|00004e90| 36 2c 6e 61 6d 65 73 69 | 7a 65 25 2a 31 36 20 b8 |6,namesi|ze%*16 .|
|00004ea0| 20 66 6f 6e 74 25 28 31 | 2c 31 29 0d 23 aa 20 c8 | font%(1|,1).#. .|
|00004eb0| 99 20 22 46 6f 6e 74 5f | 53 65 74 46 6f 6e 74 22 |. "Font_|SetFont"|
|00004ec0| 2c 66 6f 6e 74 25 28 31 | 2c 31 29 0d 23 b4 2e c8 |,font%(1|,1).#...|
|00004ed0| 99 20 22 43 6f 6c 6f 75 | 72 54 72 61 6e 73 5f 53 |. "Colou|rTrans_S|
|00004ee0| 65 74 46 6f 6e 74 43 6f | 6c 6f 75 72 73 22 2c 2c |etFontCo|lours",,|
|00004ef0| 2d 32 35 36 2c 30 2c 31 | 34 0d 23 be 2d c8 99 20 |-256,0,1|4.#.-.. |
|00004f00| 22 46 6f 6e 74 5f 50 61 | 69 6e 74 22 2c 2c 61 64 |"Font_Pa|int",,ad|
|00004f10| 64 72 24 28 6c 61 62 65 | 6c 25 2c 30 29 2c 31 3c |dr$(labe|l%,0),1<|
|00004f20| 3c 34 2c 2c 79 25 0d 23 | c8 21 c8 99 20 22 46 6f |<4,,y%.#|.!.. "Fo|
|00004f30| 6e 74 5f 4c 6f 73 65 46 | 6f 6e 74 22 2c 66 6f 6e |nt_LoseF|ont",fon|
|00004f40| 74 25 28 31 2c 31 29 0d | 23 d2 18 64 79 25 3d 61 |t%(1,1).|#..dy%=a|
|00004f50| 64 64 72 73 69 7a 65 25 | 2f 37 32 2a 31 38 30 0d |ddrsize%|/72*180.|
|00004f60| 23 dc 09 78 25 3d 33 32 | 0d 23 e6 0f 79 25 2d 3d |#..x%=32|.#..y%-=|
|00004f70| 64 79 25 2a 31 2e 35 0d | 23 f0 1d e3 20 6c 6f 6f |dy%*1.5.|#... loo|
|00004f80| 70 25 3d 31 20 b8 20 6c | 61 73 74 25 28 6c 61 62 |p%=1 . l|ast%(lab|
|00004f90| 65 6c 25 29 0d 23 fa 1b | e7 20 6c 6f 6f 70 25 3d |el%).#..|. loop%=|
|00004fa0| 6c 61 73 74 25 28 6c 61 | 62 65 6c 25 29 20 8c 0d |last%(la|bel%) ..|
|00004fb0| 24 04 47 c8 99 20 22 46 | 6f 6e 74 5f 46 69 6e 64 |$.G.. "F|ont_Find|
|00004fc0| 46 6f 6e 74 22 2c 2c 66 | 6f 6e 74 24 28 33 29 2c |Font",,f|ont$(3),|
|00004fd0| 61 64 64 72 73 69 7a 65 | 25 2a 31 36 2c 61 64 64 |addrsize|%*16,add|
|00004fe0| 72 73 69 7a 65 25 2a 31 | 36 20 b8 20 66 6f 6e 74 |rsize%*1|6 . font|
|00004ff0| 25 28 33 2c 31 29 0d 24 | 0e 14 66 6f 6e 74 25 3d |%(3,1).$|..font%=|
|00005000| 66 6f 6e 74 25 28 33 2c | 31 29 0d 24 18 05 cc 0d |font%(3,|1).$....|
|00005010| 24 22 47 c8 99 20 22 46 | 6f 6e 74 5f 46 69 6e 64 |$"G.. "F|ont_Find|
|00005020| 46 6f 6e 74 22 2c 2c 66 | 6f 6e 74 24 28 32 29 2c |Font",,f|ont$(2),|
|00005030| 61 64 64 72 73 69 7a 65 | 25 2a 31 36 2c 61 64 64 |addrsize|%*16,add|
|00005040| 72 73 69 7a 65 25 2a 31 | 36 20 b8 20 66 6f 6e 74 |rsize%*1|6 . font|
|00005050| 25 28 32 2c 31 29 0d 24 | 2c 14 66 6f 6e 74 25 3d |%(2,1).$|,.font%=|
|00005060| 66 6f 6e 74 25 28 32 2c | 31 29 0d 24 36 05 cd 0d |font%(2,|1).$6...|
|00005070| 24 40 1b c8 99 20 22 46 | 6f 6e 74 5f 53 65 74 46 |$@... "F|ont_SetF|
|00005080| 6f 6e 74 22 2c 66 6f 6e | 74 25 0d 24 4a 2e c8 99 |ont",fon|t%.$J...|
|00005090| 20 22 43 6f 6c 6f 75 72 | 54 72 61 6e 73 5f 53 65 | "Colour|Trans_Se|
|000050a0| 74 46 6f 6e 74 43 6f 6c | 6f 75 72 73 22 2c 2c 2d |tFontCol|ours",,-|
|000050b0| 32 35 36 2c 30 2c 31 34 | 0d 24 54 33 c8 99 20 22 |256,0,14|.$T3.. "|
|000050c0| 46 6f 6e 74 5f 50 61 69 | 6e 74 22 2c 2c 61 64 64 |Font_Pai|nt",,add|
|000050d0| 72 24 28 6c 61 62 65 6c | 25 2c 6c 6f 6f 70 25 29 |r$(label|%,loop%)|
|000050e0| 2c 31 3c 3c 34 2c 78 25 | 2c 79 25 0d 24 5e 1c c8 |,1<<4,x%|,y%.$^..|
|000050f0| 99 20 22 46 6f 6e 74 5f | 4c 6f 73 65 46 6f 6e 74 |. "Font_|LoseFont|
|00005100| 22 2c 66 6f 6e 74 25 0d | 24 68 1b e7 20 6c 6f 6f |",font%.|$h.. loo|
|00005110| 70 25 3d 6c 61 73 74 25 | 28 6c 61 62 65 6c 25 29 |p%=last%|(label%)|
|00005120| 20 8c 0d 24 72 10 66 6f | 6e 74 25 28 33 2c 31 29 | ..$r.fo|nt%(3,1)|
|00005130| 3d 30 0d 24 7c 05 cc 0d | 24 86 10 66 6f 6e 74 25 |=0.$|...|$..font%|
|00005140| 28 32 2c 31 29 3d 30 0d | 24 90 05 cd 0d 24 9a 0a |(2,1)=0.|$....$..|
|00005150| 78 25 2b 3d 33 32 0d 24 | a4 0b 79 25 2d 3d 64 79 |x%+=32.$|..y%-=dy|
|00005160| 25 0d 24 ae 05 ed 0d 24 | b8 05 e1 0d 24 c2 05 3a |%.$....$|....$..:|
|00005170| 0d 24 cc 1a dd 20 a4 66 | 69 78 65 64 31 36 28 4e |.$... .f|ixed16(N|
|00005180| 29 3d 4e 2a 28 32 5e 31 | 36 29 0d 24 d6 05 3a 0d |)=N*(2^1|6).$..:.|
|00005190| 24 e0 19 dd 2d 20 42 75 | 73 69 6e 65 73 73 20 70 |$...- Bu|siness p|
|000051a0| 61 72 74 20 45 4e 44 53 | 0d 24 ea 05 3a 0d 24 f4 |art ENDS|.$..:.$.|
|000051b0| 15 dd 20 f2 6e 6f 5f 61 | 63 6b 6e 6f 77 6c 65 64 |.. .no_a|cknowled|
|000051c0| 67 65 0d 24 fe 08 ea 20 | 69 25 0d 25 08 12 c8 8e |ge.$... |i%.%....|
|000051d0| 20 62 6c 6f 63 6b 25 21 | 31 36 20 ca 0d 25 12 08 | block%!|16 ..%..|
|000051e0| c9 20 31 3a 0d 25 1c 0f | 61 70 70 74 72 61 6e 73 |. 1:.%..|apptrans|
|000051f0| 25 3d a3 0d 25 26 08 c9 | 20 36 3a 0d 25 30 10 e3 |%=..%&..| 6:.%0..|
|00005200| 20 69 25 3d 30 20 b8 20 | 32 35 36 0d 25 3a 1d 62 | i%=0 . |256.%:.b|
|00005210| 6c 6f 63 6b 25 21 69 25 | 3d 62 6c 6f 63 6b 25 21 |lock%!i%|=block%!|
|00005220| 28 69 25 2b 35 31 32 29 | 0d 25 44 05 ed 0d 25 4e |(i%+512)|.%D...%N|
|00005230| 2c c8 99 20 22 57 69 6d | 70 5f 53 65 6e 64 4d 65 |,.. "Wim|p_SendMe|
|00005240| 73 73 61 67 65 22 2c 31 | 38 2c 62 6c 6f 63 6b 25 |ssage",1|8,block%|
|00005250| 2c 62 6c 6f 63 6b 25 21 | 34 0d 25 58 0f 61 70 70 |,block%!|4.%X.app|
|00005260| 74 72 61 6e 73 25 3d b9 | 0d 25 62 0d c9 20 26 34 |trans%=.|.%b.. &4|
|00005270| 30 30 43 36 3a 0d 25 6c | 1d 69 6e 70 75 74 66 69 |00C6:.%l|.inputfi|
|00005280| 6c 65 24 3d 22 52 41 4d | 20 54 72 61 6e 73 66 65 |le$="RAM| Transfe|
|00005290| 72 22 0d 25 76 32 24 a4 | 69 63 6f 6e 74 65 78 74 |r".%v2$.|icontext|
|000052a0| 61 64 64 72 28 77 69 6e | 64 6f 77 25 28 6d 61 69 |addr(win|dow%(mai|
|000052b0| 6e 57 25 2c 31 29 2c 32 | 29 3d 69 6e 70 75 74 66 |nW%,1),2|)=inputf|
|000052c0| 69 6c 65 24 0d 25 80 20 | f2 63 65 6e 74 72 65 28 |ile$.%. |.centre(|
|000052d0| 77 69 6e 64 6f 77 25 28 | 6d 61 69 6e 57 25 2c 31 |window%(|mainW%,1|
|000052e0| 29 2c 32 29 0d 25 8a 05 | cb 0d 25 94 05 e1 0d 25 |),2).%..|..%....%|
|000052f0| 9e 05 3a 0d 25 a8 12 dd | 20 f2 52 41 4d 54 72 61 |..:.%...| .RAMTra|
|00005300| 6e 73 6d 69 74 0d 25 b2 | 18 66 69 6c 65 73 69 7a |nsmit.%.|.filesiz|
|00005310| 65 25 2b 3d 62 6c 6f 63 | 6b 25 21 32 34 0d 25 bc |e%+=bloc|k%!24.%.|
|00005320| 17 e7 20 62 6c 6f 63 6b | 25 21 32 34 3d 52 41 4d |.. block|%!24=RAM|
|00005330| 62 25 20 8c 0d 25 c6 2d | f2 65 78 74 65 6e 64 62 |b% ..%.-|.extendb|
|00005340| 6c 6f 63 6b 28 66 69 6c | 65 61 6e 63 68 6f 72 25 |lock(fil|eanchor%|
|00005350| 2c 66 69 6c 65 73 69 7a | 65 25 2b 52 41 4d 62 25 |,filesiz|e%+RAMb%|
|00005360| 29 0d 25 d0 15 62 6c 6f | 63 6b 25 21 31 32 3d 6d |).%..blo|ck%!12=m|
|00005370| 79 5f 72 65 66 25 0d 25 | da 0f 62 6c 6f 63 6b 25 |y_ref%.%|..block%|
|00005380| 21 31 36 3d 36 0d 25 e4 | 24 62 6c 6f 63 6b 25 21 |!16=6.%.|$block%!|
|00005390| 32 30 3d 21 66 69 6c 65 | 61 6e 63 68 6f 72 25 2b |20=!file|anchor%+|
|000053a0| 66 69 6c 65 73 69 7a 65 | 25 0d 25 ee 13 62 6c 6f |filesize|%.%..blo|
|000053b0| 63 6b 25 21 32 34 3d 52 | 41 4d 62 25 0d 25 f8 2d |ck%!24=R|AMb%.%.-|
|000053c0| c8 99 20 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 |.. "Wimp|_SendMes|
|000053d0| 73 61 67 65 22 2c 31 37 | 2c 62 6c 6f 63 6b 25 2c |sage",17|,block%,|
|000053e0| 66 72 6f 6d 74 61 73 6b | 25 0d 26 02 05 cc 0d 26 |fromtask|%.&....&|
|000053f0| 0c 0f 62 6c 6f 63 6b 25 | 21 30 3d 32 34 0d 26 16 |..block%|!0=24.&.|
|00005400| 0f 62 6c 6f 63 6b 25 21 | 31 32 3d 30 0d 26 20 14 |.block%!|12=0.& .|
|00005410| 62 6c 6f 63 6b 25 21 31 | 36 3d 26 34 30 30 43 36 |block%!1|6=&400C6|
|00005420| 0d 26 2a 17 62 6c 6f 63 | 6b 25 21 32 30 3d 66 72 |.&*.bloc|k%!20=fr|
|00005430| 6f 6d 74 61 73 6b 25 0d | 26 34 23 c8 99 20 22 57 |omtask%.|&4#.. "W|
|00005440| 69 6d 70 5f 53 65 6e 64 | 4d 65 73 73 61 67 65 22 |imp_Send|Message"|
|00005450| 2c 31 38 2c 62 6c 6f 63 | 6b 25 0d 26 3e 1c f2 63 |,18,bloc|k%.&>..c|
|00005460| 68 65 63 6b 6e 65 77 66 | 69 6c 65 28 66 69 6c 65 |hecknewf|ile(file|
|00005470| 73 69 7a 65 25 29 0d 26 | 48 05 cd 0d 26 52 05 e1 |size%).&|H...&R..|
|00005480| 0d 26 5c 05 3a 0d 26 66 | 1b dd 20 f2 63 68 65 63 |.&\.:.&f|.. .chec|
|00005490| 6b 6e 65 77 66 69 6c 65 | 28 66 73 69 7a 65 25 29 |knewfile|(fsize%)|
|000054a0| 0d 26 70 26 f2 65 78 74 | 65 6e 64 62 6c 6f 63 6b |.&p&.ext|endblock|
|000054b0| 28 66 69 6c 65 61 6e 63 | 68 6f 72 25 2c 66 73 69 |(fileanc|hor%,fsi|
|000054c0| 7a 65 25 2b 31 29 0d 26 | 7a 16 66 69 6c 65 25 3d |ze%+1).&|z.file%=|
|000054d0| 21 66 69 6c 65 61 6e 63 | 68 6f 72 25 0d 26 84 13 |!fileanc|hor%.&..|
|000054e0| 66 69 6c 65 25 3f 66 73 | 69 7a 65 25 3d 31 30 0d |file%?fs|ize%=10.|
|000054f0| 26 8e 3c e7 20 66 69 6c | 65 25 3f 28 66 73 69 7a |&.<. fil|e%?(fsiz|
|00005500| 65 25 2d 31 29 3c 3e 31 | 30 20 8c 20 66 73 69 7a |e%-1)<>1|0 . fsiz|
|00005510| 65 25 2b 3d 31 3a f2 63 | 68 65 63 6b 6e 65 77 66 |e%+=1:.c|hecknewf|
|00005520| 69 6c 65 28 66 73 69 7a | 65 25 29 0d 26 98 15 43 |ile(fsiz|e%).&..C|
|00005530| 53 56 6c 65 6e 67 74 68 | 25 3d 66 73 69 7a 65 25 |SVlength|%=fsize%|
|00005540| 0d 26 a2 05 e1 0d 26 ac | 05 3a 0d 26 b6 0e dd 20 |.&....&.|.:.&... |
|00005550| f2 70 64 72 69 76 65 72 | 0d 26 c0 0e 70 64 72 69 |.pdriver|.&..pdri|
|00005560| 76 65 72 25 3d a3 0d 26 | ca 1d ea 20 78 72 65 73 |ver%=..&|... xres|
|00005570| 25 2c 79 72 65 73 25 2c | 78 72 65 73 24 2c 79 72 |%,yres%,|xres$,yr|
|00005580| 65 73 24 0d 26 d4 07 ea | 20 85 0d 26 de 40 ee 20 |es$.&...| ..&.@. |
|00005590| 85 20 ea 3a f7 20 85 3a | 70 64 72 69 76 65 72 24 |. .:. .:|pdriver$|
|000055a0| 3d 22 6e 6f 6e 65 20 69 | 6e 73 74 61 6c 6c 65 64 |="none i|nstalled|
|000055b0| 22 3a 70 72 65 73 24 3d | 22 6e 6f 6e 65 20 69 6e |":pres$=|"none in|
|000055c0| 73 74 61 6c 6c 65 64 22 | 3a e1 0d 26 e8 2e c8 99 |stalled"|:..&....|
|000055d0| 20 22 50 44 72 69 76 65 | 72 5f 49 6e 66 6f 22 20 | "PDrive|r_Info" |
|000055e0| b8 20 2c 78 72 65 73 25 | 2c 79 72 65 73 25 2c 2c |. ,xres%|,yres%,,|
|000055f0| 70 64 72 69 76 65 72 24 | 0d 26 f2 10 78 72 65 73 |pdriver$|.&..xres|
|00005600| 24 3d c3 78 72 65 73 25 | 0d 26 fc 10 79 72 65 73 |$=.xres%|.&..yres|
|00005610| 24 3d c3 79 72 65 73 25 | 0d 27 06 14 c8 95 20 a9 |$=.yres%|.'.... .|
|00005620| 78 72 65 73 24 3e a9 79 | 72 65 73 24 0d 27 10 0e |xres$>.y|res$.'..|
|00005630| 79 72 65 73 24 2b 3d 22 | 20 22 0d 27 1a 05 ce 0d |yres$+="| ".'....|
|00005640| 27 24 14 c8 95 20 a9 78 | 72 65 73 24 3c a9 79 72 |'$... .x|res$<.yr|
|00005650| 65 73 24 0d 27 2e 13 78 | 72 65 73 24 3d 22 20 22 |es$.'..x|res$=" "|
|00005660| 2b 78 72 65 73 24 0d 27 | 38 05 ce 0d 27 42 1b 70 |+xres$.'|8...'B.p|
|00005670| 72 65 73 24 3d 78 72 65 | 73 24 2b 22 20 d7 20 22 |res$=xre|s$+" . "|
|00005680| 2b 79 72 65 73 24 0d 27 | 4c 0e 70 64 72 69 76 65 |+yres$.'|L.pdrive|
|00005690| 72 25 3d b9 0d 27 56 07 | f7 20 85 0d 27 60 05 e1 |r%=..'V.|. ..'`..|
|000056a0| 0d 27 6a 05 3a 0d 27 74 | 1d dd 20 f2 6c 69 67 68 |.'j.:.'t|.. .ligh|
|000056b0| 74 69 63 6f 6e 28 77 69 | 25 2c 69 63 25 2c 63 6f |ticon(wi|%,ic%,co|
|000056c0| 25 29 0d 27 7e 08 ea 20 | 71 25 0d 27 88 12 71 25 |%).'~.. |q%.'..q%|
|000056d0| 3d 62 6c 6f 63 6b 25 2b | 26 31 30 30 0d 27 92 0c |=block%+|&100.'..|
|000056e0| 71 25 21 30 3d 77 69 25 | 0d 27 9c 0c 71 25 21 34 |q%!0=wi%|.'..q%!4|
|000056f0| 3d 69 63 25 0d 27 a6 0b | e7 20 63 6f 25 20 8c 0d |=ic%.'..|. co% ..|
|00005700| 27 b0 0a 71 25 21 38 3d | 30 0d 27 ba 05 cc 0d 27 |'..q%!8=|0.'....'|
|00005710| c4 0e 71 25 21 38 3d 31 | 3c 3c 32 32 0d 27 ce 05 |..q%!8=1|<<22.'..|
|00005720| cd 0d 27 d8 0f 71 25 21 | 31 32 3d 31 3c 3c 32 32 |..'..q%!|12=1<<22|
|00005730| 0d 27 e2 1e c8 99 20 22 | 57 69 6d 70 5f 53 65 74 |.'.... "|Wimp_Set|
|00005740| 49 63 6f 6e 53 74 61 74 | 65 22 2c 2c 71 25 0d 27 |IconStat|e",,q%.'|
|00005750| ec 05 e1 0d 27 f6 05 3a | 0d 28 00 1c dd 20 f2 6b |....'..:|.(... .k|
|00005760| 65 79 70 72 65 73 73 28 | 77 25 2c 69 25 2c 73 25 |eypress(|w%,i%,s%|
|00005770| 2c 6b 25 29 0d 28 0a 15 | ea 20 69 6e 64 65 78 25 |,k%).(..|. index%|
|00005780| 2c 70 72 6f 63 65 73 73 | 25 0d 28 14 0e 70 72 6f |,process|%.(..pro|
|00005790| 63 65 73 73 25 3d b9 0d | 28 1e 17 69 6e 64 65 78 |cess%=..|(..index|
|000057a0| 25 3d a4 69 6e 64 65 78 | 28 77 25 2c a3 29 0d 28 |%=.index|(w%,.).(|
|000057b0| 28 0f c8 8e 20 69 6e 64 | 65 78 25 20 ca 0d 28 32 |(... ind|ex% ..(2|
|000057c0| 21 c9 20 6d 61 69 6e 57 | 25 3a 20 f2 6d 61 69 6e |!. mainW|%: .main|
|000057d0| 5f 6b 65 79 28 77 25 2c | 69 25 2c 6b 25 29 0d 28 |_key(w%,|i%,k%).(|
|000057e0| 3c 05 cb 0d 28 46 28 e7 | 20 70 72 6f 63 65 73 73 |<...(F(.| process|
|000057f0| 25 20 8c 20 c8 99 20 22 | 57 69 6d 70 5f 50 72 6f |% . .. "|Wimp_Pro|
|00005800| 63 65 73 73 4b 65 79 22 | 2c 6b 25 0d 28 50 05 e1 |cessKey"|,k%.(P..|
|00005810| 0d 28 5a 05 3a 0d 28 64 | 19 dd 20 f2 6d 61 69 6e |.(Z.:.(d|.. .main|
|00005820| 5f 6b 65 79 28 77 25 2c | 69 25 2c 6b 25 29 0d 28 |_key(w%,|i%,k%).(|
|00005830| 6e 1f e7 20 6b 25 3d 31 | 33 20 80 20 28 69 25 3d |n.. k%=1|3 . (i%=|
|00005840| 31 37 20 84 20 69 25 3d | 31 38 29 20 8c 0d 28 78 |17 . i%=|18) ..(x|
|00005850| 08 ea 20 73 24 0d 28 82 | 1c 73 24 3d 24 a4 69 63 |.. s$.(.|.s$=$.ic|
|00005860| 6f 6e 74 65 78 74 61 64 | 64 72 28 77 25 2c 69 25 |ontextad|dr(w%,i%|
|00005870| 29 0d 28 8c 1d e7 20 c2 | 73 24 2c 32 29 3d 22 70 |).(... .|s$,2)="p|
|00005880| 74 22 20 8c 20 73 24 3d | c0 c0 73 24 29 29 0d 28 |t" . s$=|..s$)).(|
|00005890| 96 07 ea 20 85 0d 28 a0 | 0f ee 20 85 20 ea 3a f7 |... ..(.|.. . .:.|
|000058a0| 20 85 3a e1 0d 28 aa 0a | 73 25 3d a0 73 24 0d 28 | .:..(..|s%=.s$.(|
|000058b0| b4 0e e7 20 73 25 3e 31 | 30 38 20 8c 0d 28 be 5a |... s%>1|08 ..(.Z|
|000058c0| e7 20 69 25 3d 31 37 20 | 8c 20 24 a4 69 63 6f 6e |. i%=17 |. $.icon|
|000058d0| 74 65 78 74 61 64 64 72 | 28 77 25 2c 69 25 29 3d |textaddr|(w%,i%)=|
|000058e0| c3 6e 61 6d 65 73 69 7a | 65 25 2b 22 70 74 22 20 |.namesiz|e%+"pt" |
|000058f0| 8b 20 24 a4 69 63 6f 6e | 74 65 78 74 61 64 64 72 |. $.icon|textaddr|
|00005900| 28 77 25 2c 69 25 29 3d | 61 64 64 72 73 69 7a 65 |(w%,i%)=|addrsize|
|00005910| 25 2b 22 70 74 22 0d 28 | c8 21 c8 99 20 22 57 69 |%+"pt".(|.!.. "Wi|
|00005920| 6d 70 5f 53 65 74 43 61 | 72 65 74 50 6f 73 69 74 |mp_SetCa|retPosit|
|00005930| 69 6f 6e 22 2c 2d 31 0d | 28 d2 5e f2 77 69 6d 70 |ion",-1.|(.^.wimp|
|00005940| 79 5f 65 72 72 6f 72 28 | 30 2c 22 54 68 61 74 20 |y_error(|0,"That |
|00005950| 76 61 6c 75 65 20 69 73 | 20 72 69 64 69 63 75 6c |value is| ridicul|
|00005960| 6f 75 73 21 20 54 68 65 | 20 6c 61 62 65 6c 20 69 |ous! The| label i|
|00005970| 74 73 65 6c 66 20 69 73 | 20 6f 6e 6c 79 20 31 2e |tself is| only 1.|
|00005980| 35 22 22 20 28 31 30 38 | 70 74 29 20 68 69 67 68 |5"" (108|pt) high|
|00005990| 21 22 2c a3 29 0d 28 dc | 05 e1 0d 28 e6 05 cd 0d |!",.).(.|...(....|
|000059a0| 28 f0 07 f7 20 85 0d 28 | fa 29 e7 20 69 25 3d 31 |(... ..(|.). i%=1|
|000059b0| 37 20 8c 20 6e 61 6d 65 | 73 69 7a 65 25 3d 73 25 |7 . name|size%=s%|
|000059c0| 20 8b 20 61 64 64 72 73 | 69 7a 65 25 3d 73 25 0d | . addrs|ize%=s%.|
|000059d0| 29 04 22 24 a4 69 63 6f | 6e 74 65 78 74 61 64 64 |)."$.ico|ntextadd|
|000059e0| 72 28 77 25 2c 69 25 29 | 3d c3 73 25 2b 22 70 74 |r(w%,i%)|=.s%+"pt|
|000059f0| 22 0d 29 0e 16 f2 72 65 | 64 72 61 77 69 63 6f 6e |".)...re|drawicon|
|00005a00| 28 77 25 2c 69 25 29 0d | 29 18 0c 69 25 3d 33 35 |(w%,i%).|)..i%=35|
|00005a10| 2d 69 25 0d 29 22 40 c8 | 99 20 22 57 69 6d 70 5f |-i%.)"@.|. "Wimp_|
|00005a20| 53 65 74 43 61 72 65 74 | 50 6f 73 69 74 69 6f 6e |SetCaret|Position|
|00005a30| 22 2c 77 25 2c 69 25 2c | 2c 2c 2d 31 2c a9 24 a4 |",w%,i%,|,,-1,.$.|
|00005a40| 69 63 6f 6e 74 65 78 74 | 61 64 64 72 28 77 25 2c |icontext|addr(w%,|
|00005a50| 69 25 29 0d 29 2c 0e 70 | 72 6f 63 65 73 73 25 3d |i%).),.p|rocess%=|
|00005a60| a3 0d 29 36 05 cd 0d 29 | 40 05 e1 0d 29 4a 05 3a |..)6...)|@...)J.:|
|00005a70| 0d 29 54 14 dd 20 f2 63 | 65 6e 74 72 65 28 77 25 |.)T.. .c|entre(w%|
|00005a80| 2c 69 25 29 0d 29 5e 08 | ea 20 71 25 0d 29 68 12 |,i%).)^.|. q%.)h.|
|00005a90| 71 25 3d 62 6c 6f 63 6b | 25 2b 26 31 30 30 0d 29 |q%=block|%+&100.)|
|00005aa0| 72 0b 71 25 21 30 3d 77 | 25 0d 29 7c 0b 71 25 21 |r.q%!0=w|%.)|.q%!|
|00005ab0| 34 3d 69 25 0d 29 86 0f | 71 25 21 38 3d 28 31 3c |4=i%.)..|q%!8=(1<|
|00005ac0| 3c 33 29 0d 29 90 17 71 | 25 21 31 32 3d 28 31 3c |<3).)..q|%!12=(1<|
|00005ad0| 3c 33 29 2b 28 31 3c 3c | 39 29 0d 29 9a 1e c8 99 |<3)+(1<<|9).)....|
|00005ae0| 20 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 | "Wimp_S|etIconSt|
|00005af0| 61 74 65 22 2c 2c 71 25 | 0d 29 a4 05 e1 0d 29 ae |ate",,q%|.)....).|
|00005b00| 05 3a 0d 29 b8 10 dd 20 | f2 72 6a 28 77 25 2c 69 |.:.)... |.rj(w%,i|
|00005b10| 25 29 0d 29 c2 08 ea 20 | 71 25 0d 29 cc 12 71 25 |%).)... |q%.)..q%|
|00005b20| 3d 62 6c 6f 63 6b 25 2b | 26 31 30 30 0d 29 d6 0b |=block%+|&100.)..|
|00005b30| 71 25 21 30 3d 77 25 0d | 29 e0 0b 71 25 21 34 3d |q%!0=w%.|)..q%!4=|
|00005b40| 69 25 0d 29 ea 0f 71 25 | 21 38 3d 28 31 3c 3c 39 |i%.)..q%|!8=(1<<9|
|00005b50| 29 0d 29 f4 17 71 25 21 | 31 32 3d 28 31 3c 3c 33 |).)..q%!|12=(1<<3|
|00005b60| 29 2b 28 31 3c 3c 39 29 | 0d 29 fe 1e c8 99 20 22 |)+(1<<9)|.).... "|
|00005b70| 57 69 6d 70 5f 53 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Set|IconStat|
|00005b80| 65 22 2c 2c 71 25 0d 2a | 08 05 e1 0d 2a 12 05 3a |e",,q%.*|....*..:|
|00005b90| 0d ff | |.. | |
+--------+-------------------------+-------------------------+--------+--------+
